260 |
& 'saltForcing =', ' /* Salinity forcing on/off flag */') |
& 'saltForcing =', ' /* Salinity forcing on/off flag */') |
261 |
CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE, |
CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE, |
262 |
& 'nonHydrostatic =', ' /* Non-Hydrostatic on/off flag */') |
& 'nonHydrostatic =', ' /* Non-Hydrostatic on/off flag */') |
263 |
|
CALL WRITE_0D_L( useCDscheme, INDEX_NONE, |
264 |
|
& 'useCDscheme =', ' /* CD scheme on/off flag */') |
265 |
|
CALL WRITE_0D_L( useJamartWetPoints, INDEX_NONE, |
266 |
|
& 'useJamartWetPoints=',' /* Coriolis WetPoints method flag */') |
267 |
WRITE(msgBuf,'(A)') '// ' |
WRITE(msgBuf,'(A)') '// ' |
268 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
269 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
311 |
&' /* put T,S Forcing in Adams-Bash. stepping */') |
&' /* put T,S Forcing in Adams-Bash. stepping */') |
312 |
CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =', |
CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =', |
313 |
&' /* Adams-Bashforth stabilizing weight */') |
&' /* Adams-Bashforth stabilizing weight */') |
314 |
|
IF (useCDscheme) THEN |
315 |
CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =', |
CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =', |
316 |
&' /* CD coupling time-scale ( s ) */') |
&' /* CD coupling time-scale ( s ) */') |
317 |
CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =', |
CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =', |
318 |
&' /* Normalised CD coupling parameter */') |
&' /* Normalised CD coupling parameter */') |
319 |
|
ENDIF |
320 |
CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =', |
CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =', |
321 |
&' /* Run start time ( s ). */') |
&' /* Run start time ( s ). */') |
322 |
CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =', |
CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =', |