Changeset 16 for trunk/NEMO/OPA_SRC/ZDF/zdftke.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/zdftke.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -28 +28 @@
 
    !! * Share Module variables
-   LOGICAL, PUBLIC, PARAMETER ::   lk_zdftke = .TRUE.   !: TKE vertical mixing flag
-   LOGICAL, PUBLIC ::         & !!! ** tke namelist (namtke) **
+   LOGICAL, PUBLIC, PARAMETER ::   lk_zdftke = .TRUE.    !: TKE vertical mixing flag
+   LOGICAL, PUBLIC ::         & !!: ** tke namelist (namtke) **
      ln_rstke = .FALSE.          !: =T restart with tke from a run without tke with 
      !                           !  a none zero initial value for en
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
       en                         !: now turbulent kinetic energy
 
@@ -92 +92 @@
       !!         d(en)/dt = eboost eav (d(u)/dz)**2       ! shear production
       !!                  + d( efave eav d(en)/dz )/dz    ! diffusion of tke
-      !!                  + g/rau0 pdl eav d(rau)/dz      ! stratif. destruc.
+      !!                  + grav/rau0 pdl eav d(rau)/dz   ! stratif. destruc.
       !!                  - ediss / emxl en**(2/3)        ! dissipation
       !!      with the boundary conditions:
@@ -791 +791 @@
    !!   Dummy module :                                        NO TKE scheme
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_zdftke = .FALSE.   ! TKE flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_zdftke = .FALSE.   !: TKE flag
 CONTAINS
    SUBROUTINE zdf_tke( kt )          ! Empty routine
-      WRITE(*,*) kt                     ! no compilation warning
+      WRITE(*,*) 'zdf_tke: You should not have seen this print! error?', kt
    END SUBROUTINE zdf_tke
 #endif