Changeset 192 for trunk/NEMO/LIM_SRC

Timestamp:

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

Author:

opalod

Message:

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

Location:

trunk/NEMO/LIM_SRC

Files:

• limmsh.F90 (modified) (1 diff)
• limthd.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limmsh.F90

@@ -87 +87 @@
       ELSEIF( fcor(1,1) < 0.e0 ) THEN
          l_jeq = .FALSE.
-         njeq = jpj + 10
+         njeq = jpj
          IF(lwp ) WRITE(numout,*) '          the model domain is entirely in the southern hemisphere: njeq = ', njeq
       ELSE
          l_jeq = .FALSE.
-         njeq = -10
+         njeq = 2
          IF(lwp ) WRITE(numout,*) '          the model domain is entirely in the northern hemisphere: njeq = ', njeq
       ENDIF

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