Changeset 6155 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable
- Timestamp:
- 2015-12-22T14:13:53+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r6154 r6155 93 93 WRITE(numout,*) 'JPALM - trc restart kt = ',kt,'==',nitend - nn_dttrc 94 94 WRITE(numout,*) '-----------------------------' 95 CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )95 CALL ju2ymds( fjulday + (2*rdttra(1)) / rday, iyear, imonth, iday, zsec ) 96 96 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 97 97 WRITE(numout,*) 'JPALM - 2 - date calculated by ju2ymds: '
Note: See TracChangeset
for help on using the changeset viewer.