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 7221 for branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2016-11-14T08:41:51+01:00 (7 years ago)
Author:
emanuelaclementi
Message:

#1643 Bug fix in development branch 2015/dev_r5936_INGV1_WAVE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5936_INGV1_WAVE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5983 r7221  
    216216      IF ( ln_wave ) THEN 
    217217      !Activated wave module but neither drag nor stokes drift activated 
    218          IF ( .NOT.(ln_cdgw .OR. ln_sdw) )   THEN 
    219             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') 
    220220      !drag coefficient read from wave model definable only with mfs bulk formulae and core  
    221221         ELSEIF (ln_cdgw .AND. .NOT.(ln_blk_mfs .OR. ln_blk_core) )       THEN        
    222222             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') 
    223225         ENDIF 
    224226      ELSE 
    225       IF ( ln_cdgw .OR. ln_sdw  )                                                           &  
     227      IF ( ln_cdgw .OR. ln_sdw .OR. ln_tauoc .OR. ln_stcor )                &  
    226228         &   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)'  ) 
    228233      ENDIF  
    229234      !                          ! Choice of the Surface Boudary Condition (set nsbc) 
     
    360365                             CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice )   ! OPA-SAS coupling: OPA receiving fields from SAS 
    361366      END SELECT 
    362       IF (ln_wave .AND. ln_tauoc) THEN 
     367      IF ( ln_wave .AND. ln_tauoc) THEN                                 ! Wave stress subctracted 
    363368            utau(:,:) = utau(:,:)*tauoc_wave(:,:) 
    364369            vtau(:,:) = vtau(:,:)*tauoc_wave(:,:) 
Note: See TracChangeset for help on using the changeset viewer.