Changeset 9391


Ignore:
Timestamp:
2018-03-09T15:26:30+01:00 (2 years ago)
Author:
davestorkey
Message:

UKMO/dev_r8864_restart_date branch: bug fixes

Location:
branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r9390 r9391  
    7272            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    7373            IF ( ln_rstdate ) THEN 
    74                zfjulday = fjulday + rdttra(1) / rday 
     74               zfjulday = fjulday + rdt / rday 
    7575               IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    7676               CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r9390 r9391  
    281281      !!---------------------------------------------------------------------- 
    282282      USE ioipsl 
    283       NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list,                 & 
     283      NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list, ln_rstdate ,    & 
    284284         &             nn_no   , cn_exp   , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl ,     & 
    285285         &             nn_it000, nn_itend , nn_date0    , nn_time0     , nn_leapy  , nn_istate ,     & 
    286286         &             nn_stock, nn_write , ln_mskland  , ln_clobber   , nn_chunksz, nn_euler  ,     & 
    287          &             ln_cfmeta, ln_iscpl, ln_rstdate 
     287         &             ln_cfmeta, ln_iscpl 
    288288      NAMELIST/namdom/ ln_linssh, nn_closea, nn_msh, rn_isfhmin, rn_rdt, rn_atfp, ln_crs 
    289289#if defined key_netcdf4 
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r9390 r9391  
    173173      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 
    174174      IF ( ln_rstdate ) THEN 
    175          zfjulday = fjulday + rdttra(1) / rday 
     175         zfjulday = fjulday + rdt / rday 
    176176         IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    177177         CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r9390 r9391  
    9090            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    9191            IF ( ln_rstdate ) THEN 
    92                zfjulday = fjulday + rdttra(1) / rday 
     92               zfjulday = fjulday + rdt / rday 
    9393               IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    9494               CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
Note: See TracChangeset for help on using the changeset viewer.