Changeset 46 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

Timestamp:

08/31/12 16:22:55 (12 years ago)

Author:

cholod

Message:

Update of the trunk with the vendor v3.4_r_3459_dev_r3406_LOCEAN4_XIOS

Location:

trunk

Files:

• . (modified) (1 prop)
• NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -45 +45 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO Consortium (2011)
-   !! $Id: zdfddm.F90 3294 2012-01-28 16:44:18Z rblod $
+   !! $Id: zdfddm.F90 3348 2012-04-11 08:25:58Z rblod $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -227 +227 @@
       ENDIF
       !
-      !                              ! allocate zdfddm arrays
+      !                               ! allocate zdfddm arrays
       IF( zdf_ddm_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_ddm_init : unable to allocate arrays' )
+      !                               ! initialization to masked Kz
+      avs(:,:,:) = rn_avt0 * tmask(:,:,:) 
       !
    END SUBROUTINE zdf_ddm_init