- Timestamp:
- 2019-08-06T17:59:22+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC/sbcmod.F90
r11348 r11413 316 316 ! 317 317 ! !* check consistency between model timeline and nn_fsbc 318 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR. & 319 MOD( nstock , nn_fsbc) /= 0 ) THEN 320 WRITE(ctmp1,*) 'sbc_init : experiment length (', nitend - nit000 + 1, ') or nstock (', nstock, & 321 & ' is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 322 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 318 IF( ln_rst_list .OR. nn_stock /= -1 ) THEN ! we will do restart files 319 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 ) THEN 320 WRITE(ctmp1,*) 'sbc_init : experiment length (', nitend - nit000 + 1, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 321 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 322 ENDIF 323 IF( .NOT. ln_rst_list .AND. MOD( nn_stock, nn_fsbc) /= 0 ) THEN ! we don't use nn_stock if ln_rst_list 324 WRITE(ctmp1,*) 'sbc_init : nn_stock (', nn_stock, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 325 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 326 ENDIF 323 327 ENDIF 324 328 !
Note: See TracChangeset
for help on using the changeset viewer.