Changeset 868 for trunk/NEMO/LIM_SRC_3/limhdf.F90

Timestamp:

2008-03-14T19:53:00+01:00 (16 years ago)

Author:

rblod

Message:

First optimisation of LIM3, limrhg optimisation induces computation change

File:

• trunk/NEMO/LIM_SRC_3/limhdf.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/limhdf.F90

@@ -147 +147 @@
          END DO
 
+         ! lateral boundary condition on zrlx
+         CALL lbc_lnk( zrlx, 'T', 1. )
+
          ! convergence test
          zconv = 0.e0
          DO jj = 2, jpjm1
-            DO ji = 2, jpim1
+            DO ji = fs_2, fs_jpim1
                zconv = MAX( zconv, ABS( zrlx(ji,jj) - ptab(ji,jj) )  )
             END DO
@@ -156 +159 @@
          IF( lk_mpp )   CALL mpp_max( zconv )   ! max over the global domain
 
-         DO jj = 2, jpjm1
-            DO ji = 2 , jpim1
+         DO jj = 1, jpj
+            DO ji = 1 , jpi
                ptab(ji,jj) = zrlx(ji,jj)
             END DO
          END DO
 
-         ! lateral boundary condition on ptab
-         CALL lbc_lnk( ptab, 'T', 1. )
          !                                         !==========================
       END DO                                       ! end of sub-time step loop
       !                                            !==========================
-
-      ptab(:,:) = ptab(:,:)
 
       IF(ln_ctl)   THEN