Ignore:
Timestamp:
2018-11-07T12:06:07+01:00 (2 years ago)
Author:
andmirek
Message:

GMED 425 merge dev_r9950_GO8_package

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/IOM/restart.F90

    r9950 r10280  
    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 
     
    5859      INTEGER, INTENT(in) ::   kt     ! ocean time-step 
    5960      !! 
     61      INTEGER             ::   iyear, imonth, iday 
     62      REAL (wp)           ::   zsec 
     63      REAL (wp)           ::   zfjulday 
    6064      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    6165      CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
     
    8791         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    8892            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    89             IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
    90             ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     93            IF ( ln_rstdate ) THEN 
     94               zfjulday = fjulday + rdt / rday 
     95               IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
     96               CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
     97               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     98            ELSE 
     99               IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
     100               ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
     101               ENDIF 
    91102            ENDIF 
    92103            ! create the file 
Note: See TracChangeset for help on using the changeset viewer.