- Timestamp:
- 2019-12-03T16:53:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
r12040 r12043 216 216 & CALL ctl_stop( 'sbc_blk_init: Please set "nn_fsbc" to 1 when using cool-skin/warm-layer param.') 217 217 END IF 218 218 219 IF( ln_skin_wl ) THEN 220 !! Check if the frequency of downwelling solar flux input makes sense and if ln_dm2dc=T if it is daily! 221 IF( (sn_qsr%freqh < 0.).OR.(sn_qsr%freqh > 24.) ) & 222 & CALL ctl_stop( 'sbc_blk_init: Warm-layer param. (ln_skin_wl) not compatible with freq. of solar flux > daily' ) 223 IF( (sn_qsr%freqh == 24.).AND.(.NOT. ln_dm2dc) ) & 224 & CALL ctl_stop( 'sbc_blk_init: Please set ln_dm2dc=T for warm-layer param. (ln_skin_wl) to work properly' ) 225 END IF 226 219 227 ioptio = 0 220 228 IF( ln_humi_sph ) THEN
Note: See TracChangeset
for help on using the changeset viewer.