Changeset 2027 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/ZDF/zdfddm.F90

Timestamp:

2010-07-29T13:33:05+02:00 (14 years ago)

Author:

cetlod

Message:

Reorganisation of the initialisation phase, see ticket:695

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/ZDF/zdfddm.F90 (modified) (2 diffs)

branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -24 +24 @@
    PRIVATE
 
-   PUBLIC   zdf_ddm    ! called by step.F90
+   PUBLIC   zdf_ddm       ! called by step.F90
+   PUBLIC   zdf_ddm_init  ! called by opa.F90
 
    LOGICAL , PUBLIC, PARAMETER ::   lk_zdfddm = .TRUE.  !: double diffusive mixing flag
@@ -85 +86 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   zmsks, zmskf, zmskd1, zmskd2, zmskd3   ! 2D workspace 
       !!----------------------------------------------------------------------
-
-      IF ( kt == nit000 )   CALL zdf_ddm_init          ! Initialization (first time-step only)
 
       !                                                ! ===============