329 |
&' /* Rolling restart/checkpoint file interval ( s ). */') |
&' /* Rolling restart/checkpoint file interval ( s ). */') |
330 |
CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =', |
CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =', |
331 |
&' /* Model state write out interval ( s ). */') |
&' /* Model state write out interval ( s ). */') |
332 |
|
CALL WRITE_0D_R8( externForcingPeriod, INDEX_NONE, |
333 |
|
& 'externForcingPeriod =', ' /* forcing period (s) */') |
334 |
|
CALL WRITE_0D_R8( externForcingCycle, INDEX_NONE, |
335 |
|
& 'externForcingCycle =', ' /* period of the cyle (s). */') |
336 |
|
CALL WRITE_0D_R8( tauThetaClimRelax, INDEX_NONE, |
337 |
|
& 'tauThetaClimRelax =', ' /* relaxation time scale (s) */') |
338 |
|
CALL WRITE_0D_R8( tauSaltClimRelax, INDEX_NONE, |
339 |
|
& 'tauSaltClimRelax =', ' /* relaxation time scale (s) */') |
340 |
|
CALL WRITE_0D_R8( latBandClimRelax, INDEX_NONE, |
341 |
|
& 'latBandClimRelax =', ' /* max. Lat. where relaxation */') |
342 |
WRITE(msgBuf,'(A)') '// ' |
WRITE(msgBuf,'(A)') '// ' |
343 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
344 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |