Changeset 6149 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2015-12-21T14:42:29+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r6144 r6149 78 78 IF( nitrst > nitend ) nitrst = nitend ! make sure we write a restart at the end of the run 79 79 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 - 83 82 IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 84 83 IF( nitrst <= nitend .AND. nitrst > 0 ) THEN … … 89 88 WRITE(numout,*) 'JPALM - oce restart nitrst = ',nitrst,'<=',nitend,' and > 0' 90 89 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 92 100 CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 93 101 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday
Note: See TracChangeset
for help on using the changeset viewer.