13 |
INTEGER ENUM_CENTERED_2ND |
INTEGER ENUM_CENTERED_2ND |
14 |
PARAMETER(ENUM_CENTERED_2ND=2) |
PARAMETER(ENUM_CENTERED_2ND=2) |
15 |
|
|
16 |
|
C 3rd order upwind |
17 |
|
INTEGER ENUM_UPWIND_3RD |
18 |
|
PARAMETER(ENUM_UPWIND_3RD=3) |
19 |
|
|
20 |
C Centered 4th order |
C Centered 4th order |
21 |
INTEGER ENUM_CENTERED_4TH |
INTEGER ENUM_CENTERED_4TH |
22 |
PARAMETER(ENUM_CENTERED_4TH=4) |
PARAMETER(ENUM_CENTERED_4TH=4) |
31 |
|
|
32 |
C Differentiate between tracers (only needed for KPP - arrgh!!!) |
C Differentiate between tracers (only needed for KPP - arrgh!!!) |
33 |
INTEGER GAD_TEMPERATURE |
INTEGER GAD_TEMPERATURE |
34 |
PARAMETER(GAD_TEMPERATURE=123) |
PARAMETER(GAD_TEMPERATURE=101) |
35 |
INTEGER GAD_SALINITY |
INTEGER GAD_SALINITY |
36 |
PARAMETER(GAD_SALINITY=321) |
PARAMETER(GAD_SALINITY=102) |
37 |
|
INTEGER GAD_TR1 |
38 |
|
PARAMETER(GAD_TR1=103) |