52 |
C GAD_TEMPERATURE :: temperature |
C GAD_TEMPERATURE :: temperature |
53 |
INTEGER GAD_TEMPERATURE |
INTEGER GAD_TEMPERATURE |
54 |
PARAMETER(GAD_TEMPERATURE=101) |
PARAMETER(GAD_TEMPERATURE=101) |
55 |
C GAD_TEMPERATURE :: salinity |
C GAD_SALINITY :: salinity |
56 |
INTEGER GAD_SALINITY |
INTEGER GAD_SALINITY |
57 |
PARAMETER(GAD_SALINITY=102) |
PARAMETER(GAD_SALINITY=102) |
58 |
C GAD_TR1 :: pssive tracer 1 |
C GAD_TR1 :: pssive tracer 1 |
59 |
INTEGER GAD_TR1 |
INTEGER GAD_TR1 |
60 |
PARAMETER(GAD_TR1=103) |
PARAMETER(GAD_TR1=103) |
61 |
CEOP |
CEOP |
62 |
|
|
63 |
|
C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines |
64 |
|
C tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp |
65 |
|
C saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt |
66 |
|
C tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp |
67 |
|
C saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt |
68 |
|
LOGICAL tempMultiDimAdvec |
69 |
|
LOGICAL saltMultiDimAdvec |
70 |
|
LOGICAL tr1_MultiDimAdvec |
71 |
|
LOGICAL tempAdamsBashforth |
72 |
|
LOGICAL saltAdamsBashforth |
73 |
|
LOGICAL tr1_AdamsBashforth |
74 |
|
COMMON /GAD_PARM_L/ |
75 |
|
& tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec, |
76 |
|
& tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth |