Changeset 7431
 Timestamp:
 20161202T11:01:53+01:00 (6 years ago)
 Location:
 branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90
r7421 r7431 222 222 ! ! fill the bulk structure with namelist informations 223 223 CALL fld_fill( sf, slf_i, cn_dir, 'sbc_blk_init', 'surface boundary condition  bulk formulae', 'namsbc_blk' ) 224 ! 225 IF ( ln_wave ) THEN 226 !Activated wave module but neither drag nor stokes drift activated 227 IF ( .NOT.(ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) ) THEN 228 CALL ctl_warn( 'Ask for wave coupling but ln_cdgw=F, ln_sdw=F, ln_tauoc=F, ln_stcor=F') 229 !drag coefficient read from wave model definable only with mfs bulk formulae and core 230 ELSEIF (ln_cdgw .AND. .NOT. ln_NCAR ) THEN 231 CALL ctl_stop( 'drag coefficient read from wave model definable only with mfs bulk formulae and core') 232 ELSEIF (ln_stcor .AND. .NOT. ln_sdw) THEN 233 CALL ctl_stop( 'StokesCoriolis term calculated only if activated Stokes Drift ln_sdw=T') 234 ENDIF 235 ELSE 236 IF ( ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) & 237 & CALL ctl_stop( 'Not Activated Wave Module (ln_wave=F) but asked coupling ', & 238 & 'with drag coefficient (ln_cdgw =T) ' , & 239 & 'or Stokes Drift (ln_sdw=T) ' , & 240 & 'or ocean stress modification due to waves (ln_tauoc=T) ', & 241 & 'or StokesCoriolis term (ln_stcori=T)' ) 242 ENDIF 224 243 ! 225 244 ! 
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r7421 r7431 252 252 taum(:,:) = 0._wp !* wind stress module (needed in GLS in case of reduced restart) 253 253 254 IF ( ln_wave ) THEN255 !Activated wave module but neither drag nor stokes drift activated256 IF ( .NOT.(ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) ) THEN257 CALL ctl_warn( 'Ask for wave coupling but ln_cdgw=F, ln_sdw=F, ln_tauoc=F, ln_stcor=F')258 !drag coefficient read from wave model definable only with mfs bulk formulae and core259 ELSEIF (ln_cdgw .AND. .NOT.(ln_blk_mfs .OR. ln_blk_core) ) THEN260 CALL ctl_stop( 'drag coefficient read from wave model definable only with mfs bulk formulae and core')261 ELSEIF (ln_stcor .AND. .NOT. ln_sdw) THEN262 CALL ctl_stop( 'StokesCoriolis term calculated only if activated Stokes Drift ln_sdw=T')263 ENDIF264 ELSE265 IF ( ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) &266 & CALL ctl_stop( 'Not Activated Wave Module (ln_wave=F) but asked coupling ', &267 & 'with drag coefficient (ln_cdgw =T) ' , &268 & 'or Stokes Drift (ln_sdw=T) ' , &269 & 'or ocean stress modification due to waves (ln_tauoc=T) ', &270 & 'or StokesCoriolis term (ln_stcori=T)' )271 ENDIF272 254 ! ! Choice of the Surface Boudary Condition (set nsbc) 273 255 IF( ln_dm2dc ) THEN !* daily mean to diurnal cycle
Note: See TracChangeset
for help on using the changeset viewer.