Changeset 14275 for NEMO/trunk/src/OCE/LBC/mppini.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/LBC/mppini.F90 (modified) (5 diffs)

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

@@ -133 +133 @@
       !!                    nbondi    : mark for "east-west local boundary"
       !!                    nbondj    : mark for "north-south local boundary"
-      !!                    nproc     : number for local processor
       !!                    noea      : number for local neighboring processor
       !!                    nowe      : number for local neighboring processor
@@ -506 +505 @@
 
       ! just to save nono etc for all proc
-      ! warning ii*ij (zone) /= nproc (processors)!
+      ! warning ii*ij (zone) /= mpprank (processors)!
       ! ioso = zone number, ii_noso = proc number
       ii_noso(:) = -1
@@ -641 +640 @@
          WRITE(inum,'(6i8,a,3i8,a)') jpnij,jpimax,jpjmax,jpk,jpiglo,jpjglo,&
    &           ' ( local: ',narea,jpi,jpj,' )'
-         WRITE(inum,'(a)') 'nproc   jpi  jpj Nis0 Njs0 Nie0 Nje0 nimp njmp nono noso nowe noea nbondi nbondj '
+         WRITE(inum,'(a)') 'narea   jpi  jpj Nis0 Njs0 Nie0 Nje0 nimp njmp nono noso nowe noea nbondi nbondj '
 
          DO jproc = 1, jpnij
-            WRITE(inum,'(13i5,2i7)')   jproc-1,  jpiall(jproc),  jpjall(jproc),   &
+            WRITE(inum,'(13i5,2i7)')     jproc,  jpiall(jproc),  jpjall(jproc),   &
                &                                nis0all(jproc), njs0all(jproc),   &
                &                                nie0all(jproc), nje0all(jproc),   &
@@ -668 +667 @@
       ENDIF
       !
-      nproc = narea-1
       IF(lwp) THEN
          WRITE(numout,*)
          WRITE(numout,*) '   resulting internal parameters : '
-         WRITE(numout,*) '      nproc  = ', nproc
+         WRITE(numout,*) '      narea  = ', narea
          WRITE(numout,*) '      nowe   = ', nowe  , '   noea  =  ', noea
          WRITE(numout,*) '      nono   = ', nono  , '   noso  =  ', noso
@@ -1326 +1324 @@
       ENDIF
       !
-      CALL flio_dom_set ( jpnij, nproc, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom)
+      CALL flio_dom_set ( jpnij, narea-1, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom)
       !
    END SUBROUTINE init_ioipsl