395 |
CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE, |
CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE, |
396 |
& 'usingSphericalPolarGrid =', |
& 'usingSphericalPolarGrid =', |
397 |
&' /* Spherical coordinates flag ( True / False ) */') |
&' /* Spherical coordinates flag ( True / False ) */') |
398 |
|
CALL WRITE_0D_L( usingCylindricalGrid, INDEX_NONE, |
399 |
|
& 'usingCylindricalGrid =', |
400 |
|
&' /* Spherical coordinates flag ( True / False ) */') |
401 |
CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =', |
CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =', |
402 |
&' /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */') |
&' /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */') |
403 |
CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =', |
CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =', |