Changeset 16 for trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90

@@ -15 +15 @@
 
    !! * Share Module variables
-   LOGICAL, PARAMETER, PUBLIC ::    &
+   LOGICAL, PARAMETER, PUBLIC ::    &   !:
 #if defined key_zdfcst   ||   defined key_esopa
       lk_zdfcst        = .TRUE.         !: constant vertical mixing flag
@@ -21 +21 @@
       lk_zdfcst        = .FALSE.        !: constant vertical mixing flag
 #endif
-   LOGICAL, PUBLIC ::    &
+   LOGICAL, PUBLIC ::    &   !:
       ln_zdfevd        = .TRUE.  ,   &  !: convection: enhanced vertical diffusion flag
       ln_zdfnpc        = .FALSE.        !: convection: non-penetrative convection flag
 
-   LOGICAL, PUBLIC ::    &
+   LOGICAL, PUBLIC ::    &   !:
       l_trazdf_exp     = .FALSE. ,   &  !: ???
       l_trazdf_imp     = .FALSE. ,   &  !: 
@@ -32 +32 @@
       l_dynzdf_imp_tsk = .FALSE.        !:
 
-   INTEGER, PUBLIC ::    & !!! namzdf:  vertical diffusion
+   INTEGER, PUBLIC ::    & !!: namzdf:  vertical diffusion
       n_zdfexp = 3    ,  &  !: number of sub-time step (explicit time stepping)
       nevdm    = 1          !: =0/1 flag to apply enhanced avm or not
  
-   REAL(wp), PUBLIC ::   & !!! namzdf   vertical diffusion
+   REAL(wp), PUBLIC ::   & !!: namzdf   vertical diffusion
       avm0  = 1.e-4_wp,  &  !: vertical eddy viscosity (m2/s)
       avt0  = 1.e-5_wp,  &  !: vertical eddy diffusivity (m2/s)
       avevd = 1._wp         !: vertical eddy coeff. for enhanced vert. diff. (m2/s)
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
       avmu,              &  !: vertical viscosity coeff. at uw-, vw-points
       avmv,              &  !: vertical viscosity coeff. at uw-, vw-points
       avt                   !: vertical diffusivity coeff. at w-point
  
-   REAL(wp), PUBLIC, DIMENSION(jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpk) ::   &   !:
       avmb, avtb            !: background profile of avm and avt