- Timestamp:
- 2015-12-28T20:41:21+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r6173 r6174 105 105 !..... 106 106 !!-------------------------------------------------------------------- 107 CALL ju2ymds( fjulday + (2*rdttra(1)) / rday, iyear, imonth, iday, 108 zsec ) 107 CALL ju2ymds( fjulday + (2*rdttra(1)) / rday, iyear, imonth, iday, zsec ) 109 108 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 110 109 ELSE
Note: See TracChangeset
for help on using the changeset viewer.