Changeset 15023 for NEMO/trunk/src/OCE/LBC/mppini.F90

Timestamp:

2021-06-18T16:35:25+02:00 (3 years ago)

Author:

gsamson

Message:

merge ticket2680_C1D_PAPA branch back into the trunk; see ticket #2680 for details

File:

• NEMO/trunk/src/OCE/LBC/mppini.F90 (modified) (2 diffs)

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

@@ -62 +62 @@
       !!----------------------------------------------------------------------
       !
-      nn_hls = 1
-      jpiglo = Ni0glo + 2 * nn_hls
-      jpjglo = Nj0glo + 2 * nn_hls
-      jpimax = jpiglo
-      jpjmax = jpjglo
-      jpi    = jpiglo
-      jpj    = jpjglo
-      jpk    = MAX( 2, jpkglo )
-      jpij   = jpi*jpj
-      jpni   = 1
-      jpnj   = 1
-      jpnij  = jpni*jpnj
-      nimpp  = 1
-      njmpp  = 1
-      nidom  = FLIO_DOM_NONE
+      nn_comm = 1
+      nn_hls  = 1
+      jpiglo  = Ni0glo + 2 * nn_hls
+      jpjglo  = Nj0glo + 2 * nn_hls
+      jpimax  = jpiglo
+      jpjmax  = jpjglo
+      jpi     = jpiglo
+      jpj     = jpjglo
+      jpk     = MAX( 2, jpkglo )
+      jpij    = jpi*jpj
+      jpni    = 1
+      jpnj    = 1
+      jpnij   = jpni*jpnj
+      nimpp   = 1
+      njmpp   = 1
+      nidom   = FLIO_DOM_NONE
+      !
+      mpiSnei(:,:) = -1
+      mpiRnei(:,:) = -1
+      l_SelfPerio(1:2) = l_Iperio                  !  west,  east periodicity by itself
+      l_SelfPerio(3:4) = l_Jperio                  ! south, north periodicity by itself
+      l_SelfPerio(5:8) = l_Iperio .AND. l_Jperio   ! corners bi-periodicity by itself
+      l_IdoNFold = l_NFold                         ! is this process doing North fold?
       !
       CALL init_doloop                       ! set start/end indices or do-loop depending on the halo width value (nn_hls)
@@ -532 +540 @@
       END DO
       !
-      CALL init_excl_landpt      ! exclude exchanges which contain only land points
+      IF( jpnij > 1) CALL init_excl_landpt      ! exclude exchanges which contain only land points
       !
       ! Save processor layout changes in ascii file