Changeset 7023


Ignore:
Timestamp:
2016-10-12T16:10:13+02:00 (4 years ago)
Author:
deazer
Message:

Include update for restart date labelling for rose cycling.

Location:
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r7019 r7023  
    6969      !! namelist variables 
    7070      !!------------------- 
    71       CHARACTER(len=80)                         ::   filtide             !: Filename root for tidal input files 
     71      CHARACTER(len=180)                        ::   filtide             !: Filename root for tidal input files 
    7272      LOGICAL                                   ::   ln_bdytide_2ddta    !: If true, read 2d harmonic data 
    7373      LOGICAL                                   ::   ln_bdytide_conj     !: If true, assume complex conjugate tidal data 
     
    7979      INTEGER, POINTER, DIMENSION(:)            ::   nblen, nblenrim     ! short cuts 
    8080      INTEGER                                   ::   ios                 ! Local integer output status for namelist read 
    81       CHARACTER(len=80)                         ::   clfile              !: full file name for tidal input file  
     81      CHARACTER(len=180)                        ::   clfile              !: full file name for tidal input file  
    8282      REAL(wp),ALLOCATABLE, DIMENSION(:,:,:)    ::   dta_read            !: work space to read in tidal harmonics data 
    8383      REAL(wp), POINTER, DIMENSION(:,:)         ::   ztr, zti            !:  "     "    "   "   "   "        "      "  
  • branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r7019 r7023  
    161161      USE ioipsl 
    162162      NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list,                 & 
    163                        nn_no   , cn_exp   , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl ,     & 
     163         &             nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl,   & 
    164164         &             nn_it000, nn_itend , nn_date0    , nn_time0     , nn_leapy  , nn_istate ,     & 
    165165         &             nn_stock, nn_write , ln_mskland  , ln_clobber   , nn_chunksz, nn_euler  ,     & 
     
    196196         WRITE(numout,*) '      file prefix restart output      cn_ocerst_out= ', cn_ocerst_out 
    197197         WRITE(numout,*) '      restart output directory        cn_ocerst_outdir= ', cn_ocerst_outdir 
    198          WRITE(numout,*) '      restart logical                 ln_rstart  = ', ln_rstart 
     198         WRITE(numout,*) '      restart logical                 ln_rstart  = ' , ln_rstart 
     199         WRITE(numout,*) '      datestamping of restarts        ln_rstdate  = ', ln_rstdate 
    199200         WRITE(numout,*) '      start with forward time step    nn_euler   = ', nn_euler 
    200201         WRITE(numout,*) '      control of time step            nn_rstctl  = ', nn_rstctl 
  • branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r7019 r7023  
    2929   CHARACTER(lc) ::   cn_ocerst_outdir !: restart output directory 
    3030   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file 
     31   LOGICAL       ::   ln_rstdate       !: datestamping of restarts 
    3132   LOGICAL       ::   ln_rst_list      !: output restarts at list of times (T) or by frequency (F) 
    3233   INTEGER       ::   nn_no            !: job number 
  • branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r7019 r7023  
    2727   USE in_out_manager  ! I/O manager 
    2828   USE iom             ! I/O module 
     29   USE ioipsl, ONLY : ju2ymds    ! for calendar 
    2930   USE diurnal_bulk 
    3031    
     
    5758      !!---------------------------------------------------------------------- 
    5859      INTEGER, INTENT(in) ::   kt     ! ocean time-step 
     60      INTEGER             ::   iyear, imonth, iday 
     61      REAL (wp)           ::   zsec 
    5962      !! 
    6063      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
     
    8487      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    8588         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    86             ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    87             IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
    88             ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     89            IF ( ln_rstdate ) THEN 
     90               CALL ju2ymds( fjulday + rdt / rday, iyear, imonth, iday, zsec )            
     91               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     92            ELSE 
     93               ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
     94               IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
     95               ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     96               ENDIF 
    8997            ENDIF 
    9098            ! create the file 
Note: See TracChangeset for help on using the changeset viewer.