bellhopMod Module

Main BELLHOP module containing global variables, data structures, and types for acoustic ray tracing


Uses

  • module~~bellhopmod~~UsesGraph module~bellhopmod bellhopMod module~mathconstants MathConstants module~bellhopmod->module~mathconstants

Used by

  • module~~bellhopmod~~UsedByGraph module~bellhopmod bellhopMod module~arrmod ArrMod module~arrmod->module~bellhopmod module~cone Cone module~cone->module~bellhopmod module~influence Influence module~influence->module~bellhopmod module~influence->module~arrmod module~writeray WriteRay module~influence->module~writeray module~influence3d Influence3D module~influence3d->module~bellhopmod module~influence3d->module~arrmod module~influence3d->module~writeray module~readenvironmentbell ReadEnvironmentBell module~readenvironmentbell->module~bellhopmod module~reflect3dmod Reflect3DMod module~reflect3dmod->module~bellhopmod module~reflectmod ReflectMod module~reflectmod->module~bellhopmod module~step Step module~step->module~bellhopmod module~step3dmod Step3DMod module~step3dmod->module~bellhopmod module~writeray->module~bellhopmod program~bellhop3d BELLHOP3D program~bellhop3d->module~bellhopmod program~bellhop3d->module~influence program~bellhop3d->module~influence3d program~bellhop3d->module~readenvironmentbell proc~bellhopcore BellhopCore proc~bellhopcore->module~arrmod proc~bellhopcore~2 BellhopCore proc~bellhopcore~2->module~arrmod proc~bellhopcore~2->module~writeray proc~reflect2d Reflect2D proc~reflect2d->module~cone proc~step2d Step2D proc~step2d->module~step3dmod proc~traceray2d TraceRay2D proc~traceray2d->module~step proc~traceray2d->module~writeray proc~traceray2d~2 TraceRay2D proc~traceray2d~2->module~reflectmod proc~traceray3d TraceRay3D proc~traceray3d->module~reflect3dmod proc~traceray3d->module~step3dmod program~bellhop BELLHOP program~bellhop->module~influence program~bellhop->module~readenvironmentbell

Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: ENVFile = 5
integer, public, parameter :: PRTFile = 6
integer, public, parameter :: RAYFile = 21
integer, public, parameter :: SHDFile = 25
integer, public, parameter :: ARRFile = 36
integer, public, parameter :: SSPFile = 40
integer, public, parameter :: MaxN = 100000
logical, public, parameter :: STEP_DEBUGGING = .FALSE.
logical, public :: ThreeD
integer, public :: Nrz_per_range
real(kind=8), public :: freq
real(kind=8), public :: omega
real(kind=8), public :: SrcDeclAngle
real(kind=8), public :: SrcAzimAngle
real(kind=8), public :: xs_3D(3)
character(len=80), public :: Title
type(BeamStructure), public :: Beam
type(ray2DPt), public :: ray2D(MaxN)
type(ray3DPt), public :: ray3D(MaxN)

Derived Types

type, public ::  rxyz

Components

Type Visibility Attributes Name Initial
real(kind=8), public :: r
real(kind=8), public :: x
real(kind=8), public :: y
real(kind=8), public :: z

type, public ::  BeamStructure

Components

Type Visibility Attributes Name Initial
integer, public :: NBeams
integer, public :: Nimage
integer, public :: Nsteps
integer, public :: iBeamWindow
real(kind=8), public :: deltas
real(kind=8), public :: epsMultiplier = 1
real(kind=8), public :: rLoop
character(len=1), public :: Component
character(len=4), public :: Type = 'G S '
character(len=7), public :: RunType
type(rxyz), public :: Box

type, public ::  ray2DPt

Components

Type Visibility Attributes Name Initial
integer, public :: NumTopBnc
integer, public :: NumBotBnc
real(kind=8), public :: x(2)
real(kind=8), public :: t(2)
real(kind=8), public :: p(2)
real(kind=8), public :: q(2)
real(kind=8), public :: c
real(kind=8), public :: Amp
real(kind=8), public :: Phase
complex(kind=8), public :: tau

type, public ::  ray3DPt

Components

Type Visibility Attributes Name Initial
real(kind=8), public :: p_tilde(2)
real(kind=8), public :: q_tilde(2)
real(kind=8), public :: p_hat(2)
real(kind=8), public :: q_hat(2)
real(kind=8), public :: DetQ
real(kind=8), public :: x(3)
real(kind=8), public :: t(3)
real(kind=8), public :: phi
real(kind=8), public :: c
real(kind=8), public :: Amp
real(kind=8), public :: Phase
integer, public :: NumTopBnc
integer, public :: NumBotBnc
complex(kind=8), public :: tau