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

Timestamp:

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

Author:

smasson

Message:

trunk: suppress jpim1 et jpjm1, #2699

File:

• NEMO/trunk/src/OCE/CRS/crs.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/CRS/crs.F90

@@ -43 +43 @@
       INTEGER  ::  narea_full, narea_crs        !: node
       INTEGER  ::  jpnij_full, jpnij_crs        !: =jpni*jpnj, the pe decomposition
-      INTEGER  ::  jpim1_full, jpjm1_full       !: 
+!!$      INTEGER  ::  jpim1_full, jpjm1_full       !: 
       INTEGER  ::  nimpp_full, njmpp_full       !: global position of point (1,1) of subdomain on parent grid
       INTEGER  ::  nimpp_crs, njmpp_crs         !: set to 1,1 for now .  Valid only for monoproc
@@ -247 +247 @@
       jpi    = jpi_full
       jpj    = jpj_full
-      jpim1  = jpim1_full
-      jpjm1  = jpjm1_full
+!!$      jpim1  = jpim1_full
+!!$      jpjm1  = jpjm1_full
 !!$      jperio = nperio_full
 
@@ -286 +286 @@
       jpi    = jpi_crs
       jpj    = jpj_crs
-      jpim1  = jpi_crsm1
-      jpjm1  = jpj_crsm1
+!!$      jpim1  = jpi_crsm1
+!!$      jpjm1  = jpj_crsm1
 !!$      jperio = nperio_crs