Changeset 6101 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2015-12-17T16:48:41+01:00 (8 years ago)

Author:

cbricaud

Message:

correction of bugs from last update and improvments for CRS

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -64 +64 @@
 
    !                      !!** Namelist  namzdf_tke  **
-   LOGICAL  ::   ln_mxl0   ! mixing length scale surface value as function of wind stress or not
-   INTEGER  ::   nn_mxl    ! type of mixing length (=0/1/2/3)
-   REAL(wp) ::   rn_mxl0   ! surface  min value of mixing length (kappa*z_o=0.4*0.1 m)  [m]
-   INTEGER  ::   nn_pdl    ! Prandtl number or not (ratio avt/avm) (=0/1)
-   REAL(wp) ::   rn_ediff  ! coefficient for avt: avt=rn_ediff*mxl*sqrt(e)
+   LOGICAL  , PUBLIC  ::   ln_mxl0   ! mixing length scale surface value as function of wind stress or not
+   INTEGER  , PUBLIC  ::   nn_mxl    ! type of mixing length (=0/1/2/3)
+   REAL(wp) , PUBLIC  ::   rn_mxl0   ! surface  min value of mixing length (kappa*z_o=0.4*0.1 m)  [m]
+   INTEGER  , PUBLIC  ::   nn_pdl    ! Prandtl number or not (ratio avt/avm) (=0/1)
+   REAL(wp) , PUBLIC  ::   rn_ediff  ! coefficient for avt: avt=rn_ediff*mxl*sqrt(e)
    REAL(wp) ::   rn_ediss  ! coefficient of the Kolmogoroff dissipation 
    REAL(wp) ::   rn_ebb    ! coefficient of the surface input of tke
    REAL(wp) ::   rn_emin   ! minimum value of tke           [m2/s2]
    REAL(wp) ::   rn_emin0  ! surface minimum value of tke   [m2/s2]
-   REAL(wp) ::   rn_bshear ! background shear (>0) currently a numerical threshold (do not change it)
+   REAL(wp) , PUBLIC  ::   rn_bshear ! background shear (>0) currently a numerical threshold (do not change it)
    INTEGER  ::   nn_etau   ! type of depth penetration of surface tke (=0/1/2/3)
    INTEGER  ::   nn_htau   ! type of tke profile of penetration (=0/1)
@@ -81 +81 @@
 
    REAL(wp) ::   ri_cri    ! critic Richardson number (deduced from rn_ediff and rn_ediss values)
-   REAL(wp) ::   rmxl_min  ! minimum mixing length value (deduced from rn_ediff and rn_emin values)  [m]
+   REAL(wp) , PUBLIC  ::   rmxl_min  ! minimum mixing length value (deduced from rn_ediff and rn_emin values)  [m]
    REAL(wp) ::   rhftau_add = 1.e-3_wp     ! add offset   applied to HF part of taum  (nn_etau=3)
    REAL(wp) ::   rhftau_scl = 1.0_wp       ! scale factor applied to HF part of taum  (nn_etau=3)