201 |
CALL WRITE_0D_R8( hFacSup, INDEX_NONE, |
CALL WRITE_0D_R8( hFacSup, INDEX_NONE, |
202 |
&'hFacSup =', |
&'hFacSup =', |
203 |
&' /* upper threshold for hFac (nonlinFreeSurf only)*/') |
&' /* upper threshold for hFac (nonlinFreeSurf only)*/') |
204 |
|
CALL WRITE_0D_I( select_rStar, INDEX_NONE, |
205 |
|
&'select_rStar =', |
206 |
|
&' /* r* Coordinate options (not yet implemented)*/') |
207 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
208 |
|
& SQUEEZE_RIGHT , 1) |
209 |
CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE, |
CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE, |
210 |
&'useRealFreshWaterFlux =', |
&'useRealFreshWaterFlux =', |
211 |
&' /* Real Fresh Water Flux on/off flag*/') |
&' /* Real Fresh Water Flux on/off flag*/') |