- Timestamp:
- 2017-04-05T17:12:32+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r7854 r7878 71 71 LOGICAL , PUBLIC :: ln_stcor !: true if Stokes-Coriolis term is used 72 72 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 73 74 ! 74 75 LOGICAL , PUBLIC :: ln_icebergs !: Icebergs … … 104 105 INTEGER, PUBLIC, PARAMETER :: jp_const = 2 ! standard formulation with constant drag coefficient 105 106 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))] 106 113 107 114 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.