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 10251 for branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2018-10-29T15:20:26+01:00 (5 years ago)
Author:
kingr
Message:

Rolled back to r10247 - i.e., undid merge of pkg br and 3.6_stable br

File:
1 edited

Legend:

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

    r10249 r10251  
    2121   USE in_out_manager  ! I/O manager 
    2222   USE iom             ! I/O module 
    23    USE ioipsl, ONLY : ju2ymds    ! for calendar 
    2423   USE eosbn2          ! equation of state            (eos bn2 routine) 
    2524   USE trdmxl_oce      ! ocean active mixed layer tracers trends variables 
     
    5554      !!---------------------------------------------------------------------- 
    5655      INTEGER, INTENT(in) ::   kt     ! ocean time-step 
    57       INTEGER             ::   iyear, imonth, iday 
    58       REAL (wp)           ::   zsec 
    59       REAL (wp)           ::   zfjulday 
    6056      !! 
    6157      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    6258      CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
    63       CHARACTER(LEN=150)  ::   clpath   ! full path to ocean output restart file 
     59      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    6460      !!---------------------------------------------------------------------- 
    6561      ! 
     
    8581      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    8682         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    87             IF ( ln_rstdate ) THEN 
    88                zfjulday = fjulday + rdttra(1) / rday 
    89                IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    90                CALL ju2ymds( zfjulday, 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 
     83            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
     84            IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
     85            ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst 
    9786            ENDIF 
    9887            ! create the file 
Note: See TracChangeset for help on using the changeset viewer.