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 3594 for branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90 – NEMO

Ignore:
Timestamp:
2012-11-19T13:28:55+01:00 (11 years ago)
Author:
rfurner
Message:

code not tested through SETTEE, builds and runs, but has not been thoroughly tested, so will not be included in 2012 merge, however submitted back to keep record of work done for 2013 developments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r3294 r3594  
    5858 
    5959      ! in order to get better performances with NetCDF format, we open and define the ice restart file  
    60       ! one ice time step before writing the data (-> at nitrst - 2*nn_fsbc + 1), except if we write ice  
    61       ! restart files every ice time step or if an ice restart file was writen at nitend - 2*nn_fsbc + 1 
    62       IF( kt == nitrst - 2*nn_fsbc + 1 .OR. nstock == nn_fsbc    & 
    63          &                             .OR. ( kt == nitend - nn_fsbc + 1 .AND. .NOT. lrst_ice ) ) THEN 
     60      ! one ice time step before writing the data (-> at nitrst - 2*nn_fsbc + 1), except if we we are  
     61      ! at the first ice time step, or if the previous ice time step we outputted an ice restart file 
     62      IF( kt == nitrst - 2*nn_fsbc + 1 .OR. nn_stock(nrst) == nn_fsbc .OR. nn_stock(nrst)==nn_stock(nrst-1)+nn_fsbc ) THEN 
    6463         ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    6564         IF( nitrst > 99999999 ) THEN   ;   WRITE(clkt, *       ) nitrst 
Note: See TracChangeset for help on using the changeset viewer.