- Timestamp:
- 2016-06-29T15:26:06+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r6491 r6755 162 162 INTEGER :: iyear, imonth, iday 163 163 REAL (wp) :: zsec 164 REAL (wp) :: zfjulday 164 165 CHARACTER(len=256) :: cl_path 165 166 CHARACTER(len=256) :: cl_filename … … 173 174 IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 174 175 IF ( ln_rstdate ) THEN 175 CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 176 zfjulday = fjulday + rdttra(1) / rday 177 IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday ) zfjulday = REAL(NINT(zfjulday),wp) ! avoid truncation error 178 CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec ) 176 179 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 177 180 ELSE
Note: See TracChangeset
for help on using the changeset viewer.