RayToOceanX Function

function RayToOceanX(x, xs, tradial)

Transform ray coordinates to ocean coordinates

Arguments

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

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


Called by

proc~~raytooceanx~~CalledByGraph proc~raytooceanx RayToOceanX proc~oceantorayx OceanToRayX proc~oceantorayx->proc~raytooceanx proc~step2d~2 Step2D proc~step2d~2->proc~raytooceanx proc~step2d~2->proc~oceantorayx proc~traceray2d TraceRay2D proc~traceray2d->proc~raytooceanx proc~traceray2d->proc~step2d~2 proc~bellhopcore BellhopCore proc~bellhopcore->proc~traceray2d program~bellhop3d BELLHOP3D program~bellhop3d->proc~bellhopcore

Source Code

FUNCTION RayToOceanX( x, xs, tradial )
!! Transform ray coordinates to ocean coordinates
  REAL ( KIND=8 ) :: RayToOceanX( 3 )
  REAL ( KIND=8 ), INTENT( IN ) :: x( 2 ), xs( 3 ), tradial( 2 )
  RayToOceanX = [ xs( 1 ) + x( 1 ) * tradial( 1 ), &
                  xs( 2 ) + x( 1 ) * tradial( 2 ), &
                  x( 2 ) ]
END FUNCTION RayToOceanX