Changeset 11831 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcmod.F90
- Timestamp:
- 2019-10-29T18:14:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcmod.F90
r11672 r11831 110 110 REWIND( numnam_ref ) !* Namelist namsbc in reference namelist : Surface boundary 111 111 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 112 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' , lwp)112 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 113 113 REWIND( numnam_cfg ) !* Namelist namsbc in configuration namelist : Parameters of the run 114 114 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' , lwp)115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 116 116 IF(lwm) WRITE( numond, namsbc ) 117 117 ! … … 308 308 ! 309 309 ! !* check consistency between model timeline and nn_fsbc 310 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR. & 311 MOD( nstock , nn_fsbc) /= 0 ) THEN 312 WRITE(ctmp1,*) 'sbc_init : experiment length (', nitend - nit000 + 1, ') or nstock (', nstock, & 313 & ' is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 314 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 310 IF( ln_rst_list .OR. nn_stock /= -1 ) THEN ! we will do restart files 311 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 ) THEN 312 WRITE(ctmp1,*) 'sbc_init : experiment length (', nitend - nit000 + 1, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 313 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 314 ENDIF 315 IF( .NOT. ln_rst_list .AND. MOD( nn_stock, nn_fsbc) /= 0 ) THEN ! we don't use nn_stock if ln_rst_list 316 WRITE(ctmp1,*) 'sbc_init : nn_stock (', nn_stock, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 317 CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 318 ENDIF 315 319 ENDIF 316 320 !
Note: See TracChangeset
for help on using the changeset viewer.