- Timestamp:
- 2019-07-25T14:02:55+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
r11275 r11348 112 112 REWIND( numnam_ref ) !* Namelist namsbc in reference namelist : Surface boundary 113 113 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 114 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' , lwp)114 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 115 115 REWIND( numnam_cfg ) !* Namelist namsbc in configuration namelist : Parameters of the run 116 116 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 117 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' , lwp)117 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 118 118 IF(lwm) WRITE( numond, namsbc ) 119 119 ! … … 263 263 IF( ln_dm2dc ) THEN !* daily mean to diurnal cycle 264 264 nday_qsr = -1 ! allow initialization at the 1st call 265 IF( .NOT.( ln_flx .OR. ln_blk ) .AND. nn_components /= jp_iam_opa ) &266 & CALL ctl_stop( 'qsr diurnal cycle from daily values requires a flux or bulkformulation' )265 IF( .NOT.( ln_flx .OR. ln_blk .OR. ln_abl ) .AND. nn_components /= jp_iam_opa ) & 266 & CALL ctl_stop( 'qsr diurnal cycle from daily values requires flux, bulk or abl formulation' ) 267 267 ENDIF 268 268 ! !* Choice of the Surface Boudary Condition
Note: See TracChangeset
for help on using the changeset viewer.