310 |
&' /* Spherical coordinates flag ( True / False ) */') |
&' /* Spherical coordinates flag ( True / False ) */') |
311 |
CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =', |
CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =', |
312 |
&' /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */') |
&' /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */') |
313 |
CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =', |
CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =', |
314 |
&' /* r(1) ( units of r ) */') |
&' /* r(1) ( units of r ) */') |
315 |
CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =', |
CALL WRITE_0D_R8( rkFac, INDEX_NONE,'rkFac =', |
316 |
&' /* minus Vertical index orientation */') |
&' /* minus Vertical index orientation */') |
317 |
CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =', |
CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =', |
318 |
&' /* Ratio on units : Horiz - Vertical */') |
&' /* Ratio on units : Horiz - Vertical */') |
319 |
c CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ', |
c CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ', |
320 |
c &' /* W spacing ( m ) */') |
c &' /* W spacing ( m ) */') |