0
-
Source:bellhopMod.f90
0
-
Graph:bellhopMod.gcno
1
-
!! Core BELLHOP module with global variables and data structures
4
-
!! Main BELLHOP module containing global variables, data structures, and types for acoustic ray tracing
11
-
INTEGER, PARAMETER :: ENVFile = 5, PRTFile = 6, RAYFile = 21, SHDFile = 25, ARRFile = 36, SSPFile = 40, MaxN = 100000
12
-
LOGICAL, PARAMETER :: STEP_DEBUGGING = .FALSE.
14
-
! Reduce MaxN (= max # of steps along a ray) to reduce storage
15
-
! Note space is wasted in NumTopBnc, NumBotBnc ...
17
-
LOGICAL :: ThreeD ! flag to indicate BELLHOP vs BELLHOP3D run
18
-
INTEGER :: Nrz_per_range
19
-
REAL ( KIND= 8) :: freq, omega, SrcDeclAngle, SrcAzimAngle, xs_3D( 3 )
20
-
CHARACTER (LEN=80) :: Title
22
-
! *** Beam structure ***
25
-
REAL (KIND=8) :: r, x, y, z
29
-
INTEGER :: NBeams, Nimage, Nsteps, iBeamWindow
30
-
REAL (KIND=8) :: deltas, epsMultiplier = 1, rLoop
31
-
CHARACTER (LEN=1) :: Component ! Pressure or displacement
32
-
CHARACTER (LEN=4) :: Type = 'G S '
33
-
CHARACTER (LEN=7) :: RunType
35
-
END TYPE BeamStructure
37
-
TYPE( BeamStructure ) :: Beam
39
-
! *** ray structure ***
42
-
INTEGER :: NumTopBnc, NumBotBnc
43
-
REAL (KIND=8 ) :: x( 2 ), t( 2 ), p( 2 ), q( 2 ), c, Amp, Phase
44
-
COMPLEX (KIND=8) :: tau
46
-
TYPE( ray2DPt ) :: ray2D( MaxN )
48
-
! uncomment COMPLEX below if using paraxial beams !!!
50
-
REAL (KIND=8) :: p_tilde( 2 ), q_tilde( 2 ), p_hat( 2 ), q_hat( 2 ), DetQ
51
-
REAL (KIND=8) :: x( 3 ), t( 3 ), phi, c, Amp, Phase
52
-
INTEGER :: NumTopBnc, NumBotBnc
53
-
! COMPLEX (KIND=8) :: p_tilde( 2 ), q_tilde( 2 ), p_hat( 2 ), q_hat( 2 ), f, g, h, DetP, DetQ
54
-
COMPLEX (KIND=8) :: tau
57
-
TYPE( ray3DPt ) :: ray3D( MaxN )
59
#####
END MODULE bellhopMod
59
#####
END MODULE bellhopMod
59
#####
END MODULE bellhopMod
59
#####
END MODULE bellhopMod
59
#####
END MODULE bellhopMod