150 |
& ' /* Momentum pressure term on/off flag */') |
& ' /* Momentum pressure term on/off flag */') |
151 |
CALL WRITE_0D_L( tempStepping, INDEX_NONE, |
CALL WRITE_0D_L( tempStepping, INDEX_NONE, |
152 |
& 'tempStepping =', ' /* Temperature equation on/off flag */') |
& 'tempStepping =', ' /* Temperature equation on/off flag */') |
|
CALL WRITE_0D_L( openBoundaries, INDEX_NONE, |
|
|
& 'openBoundaries =', ' /* OpenBoundaries on/off flag */') |
|
153 |
CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE, |
CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE, |
154 |
& 'nonHydrostatic =', ' /* Non-Hydrostatic on/off flag */') |
& 'nonHydrostatic =', ' /* Non-Hydrostatic on/off flag */') |
155 |
WRITE(msgBuf,'(A)') '// ' |
WRITE(msgBuf,'(A)') '// ' |
226 |
CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE, |
CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE, |
227 |
& 'usingSphericalPolarGrid =', |
& 'usingSphericalPolarGrid =', |
228 |
&' /* Spherical coordinates flag ( True / False ) */') |
&' /* Spherical coordinates flag ( True / False ) */') |
229 |
|
CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =', |
230 |
|
&' /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */') |
231 |
|
CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =', |
232 |
|
&' /* r(1) ( units of r ) */') |
233 |
|
CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =', |
234 |
|
&' /* minus Vertical index orientation */') |
235 |
|
CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =', |
236 |
|
&' /* Ratio on units : Horiz - Vertical */') |
237 |
CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ', |
CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ', |
238 |
&' /* W spacing ( m ) */') |
&' /* W spacing ( m ) */') |
239 |
CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ', |
CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ', |