Changeset 5494


Ignore:
Timestamp:
2015-06-26T12:30:56+02:00 (5 years ago)
Author:
dancopsey
Message:

Upgraded NEMO3,5 branch dev/hadco/vn3.5_beta_restart_date to this revision.

Location:
branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r5493 r5494  
    137137      NAMELIST/namrun/ nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl,   & 
    138138         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   & 
    139          &             nn_write, ln_dimgnnn, ln_mskland  , ln_clobber   , nn_chunksz, nn_euler 
     139         &             nn_write, ln_dimgnnn, ln_mskland  , ln_clobber   , nn_chunksz, nn_euler ,   & 
     140         &             ln_rstdate 
    140141      NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,   & 
    141142         &             nn_acc   , rn_atfp     , rn_rdt      , rn_rdtmin ,                  & 
     
    179180         WRITE(numout,*) '      initial state output            nn_istate  = ', nn_istate 
    180181         WRITE(numout,*) '      frequency of restart file       nn_stock   = ', nn_stock 
     182         WRITE(numout,*) '      use date in restart name        ln_rstdate = ', ln_rstdate  
    181183         WRITE(numout,*) '      frequency of output file        nn_write   = ', nn_write 
    182184         WRITE(numout,*) '      multi file dimgout              ln_dimgnnn = ', ln_dimgnnn 
  • branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r5493 r5494  
    3838   INTEGER       ::   nn_write         !: model standard output frequency 
    3939   INTEGER       ::   nn_stock         !: restart file frequency 
     40   LOGICAL       ::   ln_rstdate    = .FALSE.     !: Use calendar date rather than time-step in restart names 
    4041   LOGICAL       ::   ln_dimgnnn       !: type of dimgout. (F): 1 file for all proc 
    4142                                                       !:                  (T): 1 file per proc 
  • branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r5493 r5494  
    2121   USE in_out_manager  ! I/O manager 
    2222   USE iom             ! I/O module 
     23   USE ioipsl, ONLY : ju2ymds    ! for calendar 
    2324   USE eosbn2          ! equation of state            (eos bn2 routine) 
    2425   USE trdmxl_oce      ! ocean active mixed layer tracers trends variables 
     
    5556      !!---------------------------------------------------------------------- 
    5657      INTEGER, INTENT(in) ::   kt     ! ocean time-step 
     58      INTEGER             ::   iyear, imonth, iday 
     59      REAL (wp)           ::   zsec 
    5760      !! 
    5861      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
     
    7477      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    7578         ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    76          IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
    77          ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     79         IF ( ln_rstdate ) THEN 
     80            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )            
     81            WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     82         ELSE 
     83            IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
     84            ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     85            ENDIF 
    7886         ENDIF 
    7987         ! create the file 
Note: See TracChangeset for help on using the changeset viewer.