Changeset 303 for trunk/NEMO/LIM_SRC

Timestamp:

2005-09-22T15:50:30+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_010 : CT : correction of the location of ptab(:,:) array swap

File:

• trunk/NEMO/LIM_SRC/limhdf.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -159 +159 @@
          IF( lk_mpp )   CALL mpp_max( zconv )   ! max over the global domain
 
-         DO jj = 2, jpjm1
-            DO ji = 2 , jpim1
-               ptab(ji,jj) = zrlx(ji,jj)
-            END DO
-         END DO
+         ptab(:,:) = zrlx(:,:)
+
          !                                         !==========================
       END DO                                       ! end of sub-time step loop
       !                                            !==========================
-
-      ptab(:,:) = zrlx(:,:)
 
       IF(ln_ctl)   THEN