Changeset 192 for trunk/NEMO/LIM_SRC/limthd.F90

Timestamp:

2004-12-22T16:33:48+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX133 : correction of the njeq initialisation to avoid compilation error when making a bound array check

File:

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

trunk/NEMO/LIM_SRC/limthd.F90

@@ -302 +302 @@
       !      Tricky trick : add 2 to frld in the Southern Hemisphere.
       !----------------------------------------------------------
-      DO jj = 1, njeqm1      !ibug in mpp
-         DO ji = 1, jpi
-            frld(ji,jj) = frld(ji,jj) + 2.0
-         END DO
-      END DO
+      IF( fcor(1,1) < 0.e0 ) THEN
+         DO jj = 1, njeqm1      !ibug in mpp
+            DO ji = 1, jpi
+               frld(ji,jj) = frld(ji,jj) + 2.0
+            END DO
+         END DO
+      ENDIF