Changeset 6742 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2016-06-24T20:10:36+02:00 (8 years ago)

Author:

malcolmroberts

Message:

Fixed date of age restart file, and write to NEMOhist directory directly

File:

• branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -84 +84 @@
          IF ( ln_rstdate ) THEN
 !            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )           
-            zfjulday = fjulday + rdttra(1) / rday
+            zfjulday = fjulday + 2*rdttra(1) / rday
             IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error
             CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )          
 
             WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday
+            WRITE(numout,*) 'Date for age tracer file'
          ELSE
             ! beware of the format used to write kt (default is i8.8, that should be large enough...)
@@ -98 +99 @@
          IF(lwp) WRITE(numout,*)
          clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trcrst_out)
-         clpath = TRIM(cn_trcrst_outdir)
+         clpath = TRIM(cn_ocerst_outdir)
          IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
          IF(lwp) WRITE(numout,*) &