27 |
|
|
28 |
C Third/fourth order interpolation factor |
C Third/fourth order interpolation factor |
29 |
_RL oneSixth |
_RL oneSixth |
30 |
PARAMETER(oneSixth=1. _d 0/6. _d 0) |
PARAMETER(oneSixth=1.D0/6.D0) |
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) |