151 |
C select_rStar :: option related to r* vertical coordinate |
C select_rStar :: option related to r* vertical coordinate |
152 |
C =0 (default) use r coord. ; > 0 use r* |
C =0 (default) use r coord. ; > 0 use r* |
153 |
C tempAdvScheme :: Temp. Horiz.Advection scheme selector |
C tempAdvScheme :: Temp. Horiz.Advection scheme selector |
154 |
C tempVertAdvScheme :: Temp. Vert. Advection scheme selector |
C tempVertAdvScheme :: Temp. Vert. Advection scheme selector |
155 |
C saltAdvScheme :: Salt. Horiz.advection scheme selector |
C saltAdvScheme :: Salt. Horiz.advection scheme selector |
156 |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
157 |
|
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
158 |
C debugLevel :: debug level selector: higher -> more writing |
C debugLevel :: debug level selector: higher -> more writing |
159 |
|
|
160 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
169 |
& nonlinFreeSurf, select_rStar, |
& nonlinFreeSurf, select_rStar, |
170 |
& tempAdvScheme, tempVertAdvScheme, |
& tempAdvScheme, tempVertAdvScheme, |
171 |
& saltAdvScheme, saltVertAdvScheme, |
& saltAdvScheme, saltVertAdvScheme, |
172 |
|
& selectKEscheme, |
173 |
& debugLevel |
& debugLevel |
174 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
175 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
188 |
INTEGER select_rStar |
INTEGER select_rStar |
189 |
INTEGER tempAdvScheme, tempVertAdvScheme |
INTEGER tempAdvScheme, tempVertAdvScheme |
190 |
INTEGER saltAdvScheme, saltVertAdvScheme |
INTEGER saltAdvScheme, saltVertAdvScheme |
191 |
|
INTEGER selectKEscheme |
192 |
INTEGER debugLevel |
INTEGER debugLevel |
193 |
|
|
194 |
C |
C |