Changeset 46 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.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/LIM_SRC_3/limistate.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -49 +49 @@
    !!----------------------------------------------------------------------
    !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
-   !! $Id: limistate.F90 3294 2012-01-28 16:44:18Z rblod $
+   !! $Id: limistate.F90 3349 2012-04-11 08:31:17Z rblod $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -460 +460 @@
       ! 4) Moments for advection
       !--------------------------------------------------------------------
+
+      sxopw (:,:) = 0.e0 
+      syopw (:,:) = 0.e0 
+      sxxopw(:,:) = 0.e0 
+      syyopw(:,:) = 0.e0 
+      sxyopw(:,:) = 0.e0
 
       sxice (:,:,:)  = 0.e0   ;   sxsn (:,:,:)  = 0.e0   ;   sxa  (:,:,:)  = 0.e0