92 |
call print_message( msgbuf, standardmessageunit, |
call print_message( msgbuf, standardmessageunit, |
93 |
& SQUEEZE_RIGHT , mythid) |
& SQUEEZE_RIGHT , mythid) |
94 |
|
|
95 |
call write_0d_r8( modelstart, INDEX_NONE,'startTime =', |
call WRITE_0D_RL( modelstart, INDEX_NONE,'startTime =', |
96 |
&' /* Start time of the model integration [s] */') |
&' /* Start time of the model integration [s] */') |
97 |
call write_0d_r8( modelend, INDEX_NONE,'endTime =', |
call WRITE_0D_RL( modelend, INDEX_NONE,'endTime =', |
98 |
&' /* End time of the model integration [s] */') |
&' /* End time of the model integration [s] */') |
99 |
call write_0d_r8( modelstep, INDEX_NONE,'deltatclock =', |
call WRITE_0D_RL( modelstep, INDEX_NONE,'deltatclock =', |
100 |
&' /* Time interval for a model forward step [s] */') |
&' /* Time interval for a model forward step [s] */') |
101 |
call write_0d_l( usingGregorianCalendar, INDEX_NONE, |
call write_0d_l( usingGregorianCalendar, INDEX_NONE, |
102 |
& 'usingGregorianCalendar =', |
& 'usingGregorianCalendar =', |