- 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/OPA_SRC/SBC/sbcmod.F90
r3421 r3594 141 141 142 142 ! ! restartability 143 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR. & 144 MOD( nstock , nn_fsbc) /= 0 ) THEN 145 WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') or nstock (', nstock, & 143 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR. ANY ( MOD(nn_stock,nn_fsbc)/=0 ) ) THEN 144 WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') or an entry in nn_stock (', nn_stock, & 146 145 & ' is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 147 146 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' )
Note: See TracChangeset
for help on using the changeset viewer.