Changeset 3332

Timestamp:

2012-03-20T10:27:17+01:00 (12 years ago)

Author:

sga

Message:

NEMO trunk: small correction to prtctl - array bound mismatch

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

@@ -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  (:,:,:)