New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5498 for branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2015-06-26T17:13:57+02:00 (9 years ago)
Author:
dancopsey
Message:

Merged in changes from revision 5493 to 5497 of branches/UKMO/dev_r5107_restart_date

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r5339 r5498  
    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 
     
    8386         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    8487            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    85             IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
    86             ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     88            IF ( ln_rstdate ) THEN  
     89               CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )             
     90               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday  
     91            ELSE  
     92               IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst  
     93               ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst  
     94               ENDIF 
    8795            ENDIF 
    8896            ! create the file 
Note: See TracChangeset for help on using the changeset viewer.