Changeset 44 for vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

Timestamp:

08/31/12 15:41:37 (12 years ago)

Author:

cholod

Message:

Load NEMO_TMP into vendor/nemo/current.

File:

• vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90 (modified) (2 diffs)

vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

@@ -33 +33 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
-   !! $Id: prtctl.F90 3294 2012-01-28 16:44:18Z rblod $ 
+   !! $Id: prtctl.F90 3332 2012-03-20 09:27:17Z sga $ 
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -118 +118 @@
       IF( PRESENT(tab2d_1) )   ztab2d_1(:,:)        = tab2d_1(:,:)
       IF( PRESENT(tab2d_2) )   ztab2d_2(:,:)        = tab2d_2(:,:)
-      IF( PRESENT(tab3d_1) )   ztab3d_1(:,:,1:kdir) = tab3d_1(:,:,:)
-      IF( PRESENT(tab3d_2) )   ztab3d_2(:,:,1:kdir) = tab3d_2(:,:,:)
+      IF( PRESENT(tab3d_1) )   ztab3d_1(:,:,1:kdir) = tab3d_1(:,:,1:kdir)
+      IF( PRESENT(tab3d_2) )   ztab3d_2(:,:,1:kdir) = tab3d_2(:,:,1:kdir)
       IF( PRESENT(mask1)   )   zmask1  (:,:,:)      = mask1  (:,:,:)
       IF( PRESENT(mask2)   )   zmask2  (:,:,:)      = mask2  (:,:,:)