New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12991 for NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcblk.F90 – NEMO

Ignore:
Timestamp:
2020-05-29T12:58:31+02:00 (4 years ago)
Author:
emanuelaclementi
Message:

Included wave-current processes following Couvelard et al 2019 and Gurvan code -ticket #2155

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12702_ASINTER-02_emanuelaclementi_Waves/src/OCE/SBC/sbcblk.F90

    r12629 r12991  
    284284      END DO 
    285285      ! 
    286       IF( ln_wave ) THEN 
    287          !Activated wave module but neither drag nor stokes drift activated 
    288          IF( .NOT.(ln_cdgw .OR. ln_sdw .OR. ln_tauwoc .OR. ln_stcor ) )   THEN 
    289             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 core 
    291          ELSEIF(ln_cdgw .AND. .NOT. ln_NCAR )       THEN 
    292             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)                             THEN 
    294             CALL ctl_stop( 'Stokes-Coriolis term calculated only if activated Stokes Drift ln_sdw=T') 
    295          ENDIF 
    296       ELSE 
    297          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       ENDIF 
    304       ! 
    305286      IF( ln_abl ) THEN       ! ABL: read 3D fields for wind, temperature, humidity and pressure gradient 
    306287         rn_zqt = ght_abl(2)          ! set the bulk altitude to ABL first level 
Note: See TracChangeset for help on using the changeset viewer.