Changeset 6742


Ignore:
Timestamp:
2016-06-24T20:10:36+02:00 (4 years ago)
Author:
malcolmroberts
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6741 r6742  
    8484         IF ( ln_rstdate ) THEN 
    8585!            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )            
    86             zfjulday = fjulday + rdttra(1) / rday 
     86            zfjulday = fjulday + 2*rdttra(1) / rday 
    8787            IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    8888            CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )           
    8989 
    9090            WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     91            WRITE(numout,*) 'Date for age tracer file' 
    9192         ELSE 
    9293            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
     
    9899         IF(lwp) WRITE(numout,*) 
    99100         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trcrst_out) 
    100          clpath = TRIM(cn_trcrst_outdir) 
     101         clpath = TRIM(cn_ocerst_outdir) 
    101102         IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    102103         IF(lwp) WRITE(numout,*) & 
Note: See TracChangeset for help on using the changeset viewer.