113 |
INTEGER cheapTairStartAB, cheapQairStartAB, cheapTracStartAB |
INTEGER cheapTairStartAB, cheapQairStartAB, cheapTracStartAB |
114 |
|
|
115 |
C-- COMMON /CHEAPAML_PARMS_L/ |
C-- COMMON /CHEAPAML_PARMS_L/ |
116 |
|
C cheapamlXperiodic :: domain (including land) is periodic in X dir |
117 |
|
C cheapamlYperiodic :: domain (including land) is periodic in Y dir |
118 |
C useFreshWaterFlux :: option to include evap+precip (on by default) |
C useFreshWaterFlux :: option to include evap+precip (on by default) |
119 |
C useFluxLimit :: use flux limiting advection (off by default) |
C useFluxLimit :: use flux limiting advection (off by default) |
120 |
C useStressOption :: use stress option (off by default) |
C useStressOption :: use stress option (off by default) |
123 |
C useClouds :: use clouds option (off by default) |
C useClouds :: use clouds option (off by default) |
124 |
C useDLongWave :: use imported downward longwave (off by default) |
C useDLongWave :: use imported downward longwave (off by default) |
125 |
COMMON /CHEAPAML_PARMS_L/ |
COMMON /CHEAPAML_PARMS_L/ |
126 |
|
& cheapamlXperiodic, |
127 |
|
& cheapamlYperiodic, |
128 |
& useFreshWaterFlux, |
& useFreshWaterFlux, |
129 |
& useFluxLimit, |
& useFluxLimit, |
130 |
& useStressOption, |
& useStressOption, |
134 |
& useTimeVarBLH, |
& useTimeVarBLH, |
135 |
& useClouds, |
& useClouds, |
136 |
& useDLongWave |
& useDLongWave |
137 |
|
LOGICAL cheapamlXperiodic |
138 |
|
LOGICAL cheapamlYperiodic |
139 |
LOGICAL useFreshWaterFlux |
LOGICAL useFreshWaterFlux |
140 |
LOGICAL useFluxLimit |
LOGICAL useFluxLimit |
141 |
LOGICAL useStressOption |
LOGICAL useStressOption |