Changeset 14275 for NEMO/trunk/src/OCE/CRS/crsdom.F90

Timestamp:

2021-01-07T13:13:16+01:00 (3 years ago)

Author:

smasson

Message:

trunk: suppress nproc ( = mpprank = narea-1)

File:

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

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

@@ -1960 +1960 @@
            ENDDO
         ENDDO 
-        Nje0_crs  = nje0all_crs(nproc + 1) 
-        jpj_crs   = jpjall_crs (nproc + 1)
-        Njs0_crs  = njs0all_crs(nproc + 1)
-        njmpp_crs = njmppt_crs (nproc + 1)
+        Nje0_crs  = nje0all_crs(narea) 
+        jpj_crs   = jpjall_crs (narea)
+        Njs0_crs  = njs0all_crs(narea)
+        njmpp_crs = njmppt_crs (narea)
 
         ! Calcul suivant un decoupage en i
@@ -2004 +2004 @@
          ENDDO 
         
-         Nie0_crs  = nie0all_crs(nproc + 1) 
-         jpi_crs   = jpiall_crs (nproc + 1)
-         Nis0_crs  = nis0all_crs(nproc + 1)
-         nimpp_crs = nimppt_crs (nproc + 1)
+         Nie0_crs  = nie0all_crs(narea) 
+         jpi_crs   = jpiall_crs (narea)
+         Nis0_crs  = nis0all_crs(narea)
+         nimpp_crs = nimppt_crs (narea)
 
          DO ji = 1, jpi_crs
@@ -2068 +2068 @@
          WRITE(numout,*) '~~~~~~~   coarse domain local  j-dimension              jpj = ', jpj
          WRITE(numout,*)
-         WRITE(numout,*) ' nproc  = '     , nproc
+         WRITE(numout,*) ' narea  = '     , narea
          WRITE(numout,*) ' jpi    = '     , jpi
          WRITE(numout,*) ' jpj    = '     , jpj