Changeset 7812 for trunk/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2017-03-20T15:00:15+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r7787 r7812 158 158 159 159 CALL iom_get( numrtr, 'ktdcy', zkt ) 160 rsecfst = INT( zkt ) * rdttrc (1)160 rsecfst = INT( zkt ) * rdttrc 161 161 IF(lwp) WRITE(numout,*) 'trc_qsr_mean: qsr_mean read in the restart file at time-step rsecfst =', rsecfst, ' s ' 162 162 CALL iom_get( numrtr, jpdom_autoglo, 'qsr_mean', qsr_mean ) ! A mean of qsr
Note: See TracChangeset
for help on using the changeset viewer.