Changeset 3279 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM

Timestamp:

2012-01-27T13:50:44+01:00 (12 years ago)

Author:

hliu

Message:

remove a mistake in r3278

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

@@ -89 +89 @@
       ! column vector of the tri-diagonal matrix equation
       !
+     DO jk = 1, jpk
+        DO jj = 1, jpj
+           DO ji =1, jpi
+              zavmu(ji,jj,jk) = avmu(ji,jj,jk)
+              zavmv(ji,jj,jk) = avmv(ji,jj,jk)
+           END DO
+        END DO
+      END DO
+
       IF( ln_bfrimp ) THEN
-      DO jk = 1, jpk
-         DO jj = 1, jpj
-            DO ji =1, jpi
-               zavmu(ji,jj,jk) = avmu(ji,jj,jk)
-               zavmv(ji,jj,jk) = avmv(ji,jj,jk)
-            END DO
-         END DO
-       END DO
-
 # if defined key_vectopt_loop
       DO jj = 1, 1