Changeset 192 for trunk/NEMO/LIM_SRC/limmsh.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/limmsh.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