99 |
PARAMETER(GAD_TR1=3) |
PARAMETER(GAD_TR1=3) |
100 |
CEOP |
CEOP |
101 |
|
|
102 |
|
C-- COMMON /GAD_PARM_C/ Character parameters for GAD pkg routines |
103 |
|
C somSfx :: 1rst & 2nd Order moment suffix |
104 |
|
CHARACTER*2 somSfx(nSOM) |
105 |
|
COMMON /GAD_PARM_C/ |
106 |
|
& somSfx |
107 |
|
|
108 |
C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines |
C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines |
109 |
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 |
110 |
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 |