- Timestamp:
- 2017-12-13T18:08:50+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r9019 r9023 59 59 LOGICAL , PUBLIC :: ln_sdw !: true if 3d stokes drift from wave model 60 60 LOGICAL , PUBLIC :: ln_tauoc !: true if normalized stress from wave is used 61 LOGICAL , PUBLIC :: ln_tauw !: true if ocean stress components from wave is used 61 62 LOGICAL , PUBLIC :: ln_stcor !: true if Stokes-Coriolis term is used 63 ! 64 INTEGER , PUBLIC :: nn_sdrift ! type of parameterization to calculate vertical Stokes drift 62 65 ! 63 66 LOGICAL , PUBLIC :: ln_icebergs !: Icebergs … … 77 80 INTEGER , PUBLIC, PARAMETER :: jp_none = 5 !: for OPA when doing coupling via SAS module 78 81 82 !!---------------------------------------------------------------------- 83 !! Stokes drift parametrization definition 84 !!---------------------------------------------------------------------- 85 INTEGER , PUBLIC, PARAMETER :: jp_breivik = 0 ! Breivik 2015: v_z=v_0*[exp(2*k*z)/(1-8*k*z)] 86 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))] 87 INTEGER , PUBLIC, PARAMETER :: jp_peakfr = 2 ! Phillips using the peak wave number read from wave model instead of the inverse depth scale 88 79 89 !!---------------------------------------------------------------------- 80 90 !! component definition
Note: See TracChangeset
for help on using the changeset viewer.