Changeset 15033 for NEMO/trunk/src/OCE/LBC

Timestamp:

2021-06-21T12:24:45+02:00 (3 years ago)

Author:

smasson

Message:

trunk: suppress jpim1 et jpjm1, #2699

Location:

NEMO/trunk/src/OCE/LBC

Files:

• mpp_lnk_icb_generic.h90 (modified) (2 diffs)
• mppini.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/LBC/mpp_lnk_icb_generic.h90

@@ -56 +56 @@
       !                                           !* Cyclic east-west
       IF( l_Iperio ) THEN
-         pt2d(1-kexti:     1   ,:) = pt2d(jpim1-kexti: jpim1 ,:)       ! east
+         pt2d(1-kexti:     1   ,:) = pt2d(jpi-1-kexti: jpi-1 ,:)       ! east
          pt2d(  jpi  :jpi+kexti,:) = pt2d(     2     :2+kexti,:)       ! west
          !
@@ -70 +70 @@
       !                                      ! North-South boundaries
       IF( l_Jperio ) THEN                         !* cyclic (only with no mpp j-split)
-         pt2d(:,1-kextj:     1   ) = pt2d(:,jpjm1-kextj:  jpjm1)       ! north
+         pt2d(:,1-kextj:     1   ) = pt2d(:,jpj-1-kextj:  jpj-1)       ! north
          pt2d(:,  jpj  :jpj+kextj) = pt2d(:,     2     :2+kextj)       ! south
       ELSE                                        !* closed

NEMO/trunk/src/OCE/LBC/mppini.F90

@@ -1338 +1338 @@
       Nj_0 = Nje0 - Njs0 + 1
       !
-      ! old indices to be removed...
-      jpim1 = jpi-1                             ! inner domain indices
-      jpjm1 = jpj-1                             !   "           "
       jpkm1 = jpk-1                             !   "           "
       !