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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3875 r3901  
    5151   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ustarb2 !: Squared bottom  velocity scale at T-points 
    5252 
    53    !                                         !!! ** Namelist  namzdf_gls  ** 
    54    LOGICAL  ::   ln_crban      = .FALSE.      ! =T use Craig and Banner scheme 
    55    LOGICAL  ::   ln_length_lim = .FALSE.      ! use limit on the dissipation rate under stable stratification (Galperin et al. 1988) 
    56    LOGICAL  ::   ln_sigpsi     = .FALSE.      ! Activate Burchard (2003) modification for k-eps closure & wave breaking mixing 
    57    INTEGER  ::   nn_tkebc_surf = 0            ! TKE surface boundary condition (=0/1) 
    58    INTEGER  ::   nn_tkebc_bot  = 0            ! TKE bottom boundary condition (=0/1) 
    59    INTEGER  ::   nn_psibc_surf = 0            ! PSI surface boundary condition (=0/1) 
    60    INTEGER  ::   nn_psibc_bot  = 0            ! PSI bottom boundary condition (=0/1) 
    61    INTEGER  ::   nn_stab_func  = 0            ! stability functions G88, KC or Canuto (=0/1/2) 
    62    INTEGER  ::   nn_clos       = 0            ! closure 0/1/2/3 MY82/k-eps/k-w/gen 
    63    REAL(wp) ::   rn_clim_galp  = 0.53_wp      ! Holt 2008 value for k-eps: 0.267 
    64    REAL(wp) ::   rn_epsmin     = 1.e-12_wp    ! minimum value of dissipation (m2/s3) 
    65    REAL(wp) ::   rn_emin       = 1.e-6_wp     ! minimum value of TKE (m2/s2) 
    66    REAL(wp) ::   rn_charn      = 2.e+5_wp     ! Charnock constant for surface breaking waves mixing : 1400. (standard) or 2.e5 (Stacey value) 
    67    REAL(wp) ::   rn_crban      = 100._wp      ! Craig and Banner constant for surface breaking waves mixing 
     53   !                              !! ** Namelist  namzdf_gls  ** 
     54   LOGICAL  ::   ln_crban          ! =T use Craig and Banner scheme 
     55   LOGICAL  ::   ln_length_lim     ! use limit on the dissipation rate under stable stratification (Galperin et al. 1988) 
     56   LOGICAL  ::   ln_sigpsi         ! Activate Burchard (2003) modification for k-eps closure & wave breaking mixing 
     57   INTEGER  ::   nn_tkebc_surf     ! TKE surface boundary condition (=0/1) 
     58   INTEGER  ::   nn_tkebc_bot      ! TKE bottom boundary condition (=0/1) 
     59   INTEGER  ::   nn_psibc_surf     ! PSI surface boundary condition (=0/1) 
     60   INTEGER  ::   nn_psibc_bot      ! PSI bottom boundary condition (=0/1) 
     61   INTEGER  ::   nn_stab_func      ! stability functions G88, KC or Canuto (=0/1/2) 
     62   INTEGER  ::   nn_clos           ! closure 0/1/2/3 MY82/k-eps/k-w/gen 
     63   REAL(wp) ::   rn_clim_galp      ! Holt 2008 value for k-eps: 0.267 
     64   REAL(wp) ::   rn_epsmin         ! minimum value of dissipation (m2/s3) 
     65   REAL(wp) ::   rn_emin           ! minimum value of TKE (m2/s2) 
     66   REAL(wp) ::   rn_charn          ! Charnock constant for surface breaking waves mixing : 1400. (standard) or 2.e5 (Stacey value) 
     67   REAL(wp) ::   rn_crban          ! Craig and Banner constant for surface breaking waves mixing 
    6868 
    6969   REAL(wp) ::   hsro          =  0.003_wp    ! Minimum surface roughness 
Note: See TracChangeset for help on using the changeset viewer.