63 |
INTEGER ENUM_SOM_LIMITER |
INTEGER ENUM_SOM_LIMITER |
64 |
PARAMETER(ENUM_SOM_LIMITER=81) |
PARAMETER(ENUM_SOM_LIMITER=81) |
65 |
|
|
66 |
|
C GAD_Scheme_MaxNum :: maximum possible number for an advection scheme |
67 |
|
INTEGER GAD_Scheme_MaxNum |
68 |
|
PARAMETER( GAD_Scheme_MaxNum = 100 ) |
69 |
|
|
70 |
C nSOM :: number of 1rst & 2nd Order-Moments: 1+1 (1D), 2+3 (2D), 3+6 (3D) |
C nSOM :: number of 1rst & 2nd Order-Moments: 1+1 (1D), 2+3 (2D), 3+6 (3D) |
71 |
INTEGER nSOM |
INTEGER nSOM |
72 |
PARAMETER( nSOM = 3+6 ) |
PARAMETER( nSOM = 3+6 ) |
109 |
COMMON /GAD_PARM_C/ |
COMMON /GAD_PARM_C/ |
110 |
& somSfx |
& somSfx |
111 |
|
|
112 |
|
C-- COMMON /GAD_PARM_I/ Integer parameters for GAD pkg routines |
113 |
|
C GAD_Scheme_olSize :: overlap minimum size for this advection scheme |
114 |
|
C GAD_OlMinSize :: overlap minimum size for GAD routines |
115 |
|
C 1: min required; 2: to add to current min; 3: factor to apply |
116 |
|
INTEGER GAD_Scheme_olSize(GAD_Scheme_MaxNum) |
117 |
|
INTEGER GAD_OlMinSize(3) |
118 |
|
COMMON /GAD_PARM_I/ |
119 |
|
& GAD_Scheme_olSize, |
120 |
|
& GAD_OlMinSize |
121 |
|
|
122 |
C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines |
C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines |
123 |
C tempSOM_Advection :: set to T if using 2nd-Order Moment advection for Temp |
C tempSOM_Advection :: set to T if using 2nd-Order Moment advection for Temp |
124 |
C saltSOM_Advection :: set to T if using 2nd-Order Moment advection for Salt |
C saltSOM_Advection :: set to T if using 2nd-Order Moment advection for Salt |