- Timestamp:
- 2016-11-14T08:41:51+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5983 r7221 216 216 IF ( ln_wave ) THEN 217 217 !Activated wave module but neither drag nor stokes drift activated 218 IF ( .NOT.(ln_cdgw .OR. ln_sdw ) ) THEN219 CALL ctl_warn( 'Ask for wave coupling but nor drag coefficient (ln_cdgw=F) neither stokes drift activated (ln_sdw=F)')218 IF ( .NOT.(ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) ) THEN 219 CALL ctl_warn( 'Ask for wave coupling but ln_cdgw=F, ln_sdw=F, ln_tauoc=F, ln_stcor=F') 220 220 !drag coefficient read from wave model definable only with mfs bulk formulae and core 221 221 ELSEIF (ln_cdgw .AND. .NOT.(ln_blk_mfs .OR. ln_blk_core) ) THEN 222 222 CALL ctl_stop( 'drag coefficient read from wave model definable only with mfs bulk formulae and core') 223 ELSEIF (ln_stcor .AND. .NOT. ln_sdw) THEN 224 CALL ctl_stop( 'Stokes-Coriolis term calculated only if activated Stokes Drift ln_sdw=T') 223 225 ENDIF 224 226 ELSE 225 IF ( ln_cdgw .OR. ln_sdw )&227 IF ( ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor ) & 226 228 & CALL ctl_stop( 'Not Activated Wave Module (ln_wave=F) but asked coupling ', & 227 & 'with drag coefficient (ln_cdgw =T) or Stokes drift (ln_sdw=T) ') 229 & 'with drag coefficient (ln_cdgw =T) ' , & 230 & 'or Stokes Drift (ln_sdw=T) ' , & 231 & 'or ocean stress modification due to waves (ln_tauoc=T) ', & 232 & 'or Stokes-Coriolis term (ln_stcori=T)' ) 228 233 ENDIF 229 234 ! ! Choice of the Surface Boudary Condition (set nsbc) … … 360 365 CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice ) ! OPA-SAS coupling: OPA receiving fields from SAS 361 366 END SELECT 362 IF ( ln_wave .AND. ln_tauoc) THEN367 IF ( ln_wave .AND. ln_tauoc) THEN ! Wave stress subctracted 363 368 utau(:,:) = utau(:,:)*tauoc_wave(:,:) 364 369 vtau(:,:) = vtau(:,:)*tauoc_wave(:,:)
Note: See TracChangeset
for help on using the changeset viewer.