- Timestamp:
- 2012-11-19T13:28:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r3294 r3594 58 58 59 59 ! 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 64 63 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 65 64 IF( nitrst > 99999999 ) THEN ; WRITE(clkt, * ) nitrst
Note: See TracChangeset
for help on using the changeset viewer.