Changeset 12991 for NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcblk.F90
- Timestamp:
- 2020-05-29T12:58:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcblk.F90
r12629 r12991 284 284 END DO 285 285 ! 286 IF( ln_wave ) THEN287 !Activated wave module but neither drag nor stokes drift activated288 IF( .NOT.(ln_cdgw .OR. ln_sdw .OR. ln_tauwoc .OR. ln_stcor ) ) THEN289 CALL ctl_stop( 'STOP', 'Ask for wave coupling but ln_cdgw=F, ln_sdw=F, ln_tauwoc=F, ln_stcor=F' )290 !drag coefficient read from wave model definable only with mfs bulk formulae and core291 ELSEIF(ln_cdgw .AND. .NOT. ln_NCAR ) THEN292 CALL ctl_stop( 'drag coefficient read from wave model definable only with NCAR and CORE bulk formulae')293 ELSEIF(ln_stcor .AND. .NOT. ln_sdw) THEN294 CALL ctl_stop( 'Stokes-Coriolis term calculated only if activated Stokes Drift ln_sdw=T')295 ENDIF296 ELSE297 IF( ln_cdgw .OR. ln_sdw .OR. ln_tauwoc .OR. ln_stcor ) &298 & CALL ctl_stop( 'Not Activated Wave Module (ln_wave=F) but asked coupling ', &299 & 'with drag coefficient (ln_cdgw =T) ' , &300 & 'or Stokes Drift (ln_sdw=T) ' , &301 & 'or ocean stress modification due to waves (ln_tauwoc=T) ', &302 & 'or Stokes-Coriolis term (ln_stcori=T)' )303 ENDIF304 !305 286 IF( ln_abl ) THEN ! ABL: read 3D fields for wind, temperature, humidity and pressure gradient 306 287 rn_zqt = ght_abl(2) ! set the bulk altitude to ABL first level
Note: See TracChangeset
for help on using the changeset viewer.