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 6149 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2015-12-21T14:42:29+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM --21-12-2015 -- add print statement on restarts writing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r6144 r6149  
    7878         IF( nitrst > nitend )   nitrst = nitend   ! make sure we write a restart at the end of the run 
    7979      ENDIF 
    80       ! to get better performances with NetCDF format: 
    81       ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1) 
    82       ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1 
     80      !! 
     81      !! JPALM test -  
    8382      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    8483         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 
     
    8988            WRITE(numout,*) 'JPALM - oce restart nitrst = ',nitrst,'<=',nitend,' and > 0' 
    9089            WRITE(numout,*) '-----------------------------' 
    91  
     90            ENDIF 
     91         ENDIF 
     92      ENDIF 
     93      !! 
     94      ! to get better performances with NetCDF format: 
     95      ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1) 
     96      ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1 
     97      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
     98         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 
     99            IF ( ln_rstdate ) THEN 
    92100               CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 
    93101               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
Note: See TracChangeset for help on using the changeset viewer.