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

trunk/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -25 +25 @@
 
    !! * Shared module variables
-   LOGICAL, PUBLIC ::   lk_zdfddm = .TRUE.    !: double diffusive mixing flag
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &
+   LOGICAL, PUBLIC, PARAMETER ::   lk_zdfddm = .TRUE.    !: double diffusive mixing flag
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
       avs ,               &  !: salinity vertical diffusivity coeff. at w-point
       rrau                   !: heat/salt buoyancy flux ratio
@@ -242 +242 @@
    !!   Default option :          Dummy module          No double diffusion
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC ::   lk_zdfddm = .FALSE.   !: double diffusion flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_zdfddm = .FALSE.   !: double diffusion flag
 CONTAINS
    SUBROUTINE zdf_ddm( kt )           ! Dummy routine
-      WRITE(*,*) kt                          ! avoid compil warning
+      WRITE(*,*) 'zdf_ddm: You should not have seen this print! error?', kt
    END SUBROUTINE zdf_ddm
 #endif