527 |
CALL WRITE_0D_L( pickupStrictlyMatch, INDEX_NONE, |
CALL WRITE_0D_L( pickupStrictlyMatch, INDEX_NONE, |
528 |
& 'pickupStrictlyMatch=', |
& 'pickupStrictlyMatch=', |
529 |
& ' /* stop if pickup do not strictly match */') |
& ' /* stop if pickup do not strictly match */') |
530 |
CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =', |
CALL WRITE_0D_I( nIter0, INDEX_NONE, 'nIter0 =', |
531 |
&' /* Run starting timestep number */') |
&' /* Run starting timestep number */') |
532 |
CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =', |
CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =', |
533 |
&' /* Number of timesteps */') |
& ' /* Number of timesteps */') |
534 |
|
CALL WRITE_0D_I( nEndIter, INDEX_NONE, 'nEndIter =', |
535 |
|
&' /* Run ending timestep number */') |
536 |
CALL WRITE_0D_RL( baseTime, INDEX_NONE,'baseTime =', |
CALL WRITE_0D_RL( baseTime, INDEX_NONE,'baseTime =', |
537 |
&' /* Model base time ( s ). */') |
&' /* Model base time ( s ) */') |
538 |
CALL WRITE_0D_RL( startTime, INDEX_NONE,'startTime =', |
CALL WRITE_0D_RL( startTime, INDEX_NONE,'startTime =', |
539 |
&' /* Run start time ( s ). */') |
& ' /* Run start time ( s ) */') |
540 |
CALL WRITE_0D_RL( endTime, INDEX_NONE,'endTime =', |
CALL WRITE_0D_RL( endTime, INDEX_NONE,'endTime =', |
541 |
&' /* Integration ending time ( s ). */') |
&' /* Integration ending time ( s ) */') |
542 |
CALL WRITE_0D_RL( pChkPtFreq, INDEX_NONE,'pChkPtFreq =', |
CALL WRITE_0D_RL( pChkPtFreq, INDEX_NONE,'pChkPtFreq =', |
543 |
&' /* Permanent restart/checkpoint file interval ( s ). */') |
& ' /* Permanent restart/pickup file interval ( s ) */') |
544 |
CALL WRITE_0D_RL( chkPtFreq, INDEX_NONE,'chkPtFreq =', |
CALL WRITE_0D_RL( chkPtFreq, INDEX_NONE,'chkPtFreq =', |
545 |
&' /* Rolling restart/checkpoint file interval ( s ). */') |
& ' /* Rolling restart/pickup file interval ( s ) */') |
546 |
CALL WRITE_0D_L(pickup_write_mdsio,INDEX_NONE, |
CALL WRITE_0D_L(pickup_write_mdsio,INDEX_NONE, |
547 |
& 'pickup_write_mdsio =', ' /* Model IO flag. */') |
& 'pickup_write_mdsio =', ' /* Model IO flag. */') |
548 |
CALL WRITE_0D_L(pickup_read_mdsio,INDEX_NONE, |
CALL WRITE_0D_L(pickup_read_mdsio,INDEX_NONE, |