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 7878 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90 – NEMO

Ignore:
Timestamp:
2017-04-05T17:12:32+02:00 (7 years ago)
Author:
jcastill
Message:

Add Phillips vertical Stokes drift parameterization as in the HZG wave branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r7854 r7878  
    7171   LOGICAL , PUBLIC ::   ln_stcor       !: true if Stokes-Coriolis term is used  
    7272   INTEGER , PUBLIC ::   nn_drag        ! type of formula to calculate wind stress from wind components 
     73   INTEGER , PUBLIC ::   nn_sdrift      ! type of parameterization to calculate vertical Stokes drift 
    7374   ! 
    7475   LOGICAL , PUBLIC ::   ln_icebergs    !: Icebergs 
     
    104105   INTEGER, PUBLIC, PARAMETER ::   jp_const = 2        ! standard formulation with constant drag coefficient  
    105106   INTEGER, PUBLIC, PARAMETER ::   jp_mcore = 3        ! momentum calculated from core forcing fields  
     107 
     108   !!---------------------------------------------------------------------- 
     109   !!           Stokes drift parameterization 
     110   !!---------------------------------------------------------------------- 
     111   INTEGER, PUBLIC, PARAMETER ::   jp_breivik  = 0     ! Breivik 2015: v_z=v_0*[exp(2*k*z)/(1-8*k*z)] 
     112   INTEGER, PUBLIC, PARAMETER ::   jp_phillips = 1     ! Phillips:     v_z=v_o*[exp(2*k*z)-beta*sqrt(-2*k*pi*z)*erfc(sqrt(-2*k*z))] 
    106113 
    107114   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.