RayToOceanT Function

function RayToOceanT(t, tradial)

Transform ray tangent to ocean tangent coordinates

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: t(2)
real(kind=8), intent(in) :: tradial(2)

Return Value real(kind=8), (3)


Called by

proc~~raytooceant~~CalledByGraph proc~raytooceant RayToOceanT proc~step2d~2 Step2D proc~step2d~2->proc~raytooceant proc~traceray2d TraceRay2D proc~traceray2d->proc~raytooceant proc~traceray2d->proc~step2d~2 proc~bellhopcore BellhopCore proc~bellhopcore->proc~traceray2d program~bellhop3d BELLHOP3D program~bellhop3d->proc~bellhopcore

Source Code

FUNCTION RayToOceanT( t, tradial )
!! Transform ray tangent to ocean tangent coordinates
  REAL ( KIND=8 ) :: RayToOceanT( 3 )
  REAL ( KIND=8 ), INTENT( IN  ) :: t( 2 ), tradial( 2 )
  RayToOceanT = [ t( 1 ) * tradial( 1 ), &
                  t( 1 ) * tradial( 2 ), &
                  t( 2 ) ]
END FUNCTION RayToOceanT