Changeset 4027 for branches/2013/dev_r3948_CMCC_NorthFold_Opt/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2013-09-17T13:19:04+02:00 (11 years ago)

Author:

epico

Message:

bug fix to support also decompositions without land-only processes

File:

• branches/2013/dev_r3948_CMCC_NorthFold_Opt/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (3 diffs)

branches/2013/dev_r3948_CMCC_NorthFold_Opt/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -180 +180 @@
    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, SAVE    ::   xnorthgloio_e
 
-   ! North fold arrays used to minimise the use of allgather operations. Set in nemo_northcomms (nemogcm) so need to be public
-!   INTEGER, PUBLIC,  PARAMETER :: jpmaxngh = 8                 ! Assumed maximum number of active neighbours
-!   INTEGER, PUBLIC,  PARAMETER :: jptyps   = 5                 ! Number of different neighbour lists to be used for northfold exchanges
-!   INTEGER, PUBLIC,  DIMENSION (jpmaxngh,jptyps)    ::   isendto
-!   INTEGER, PUBLIC,  DIMENSION (jptyps)             ::   nsndto
    LOGICAL, PUBLIC                                  ::   ln_nnogather     = .FALSE.  ! namelist control of northfold comms
    LOGICAL, PUBLIC                                  ::   l_north_nogather = .FALSE.  ! internal control of northfold comms
@@ -2624 +2619 @@
          ! (in nemo_northcomms) as being  involved in this process' northern boundary exchange
          !
+
+         ztabr_3d(:,:,:) = 0
+
          DO jk = 1, jpk
             DO jj = nlcj-ijpj+1, nlcj          ! First put local values into the global array
@@ -2755 +2753 @@
          ! (in nemo_northcomms) as being  involved in this process' northern boundary exchange
          !
+
+         ztabr_2d(:,:) = 0
+
          DO jj = nlcj-ijpj+1, nlcj          ! First put local values into the global array
             ij = jj - nlcj + ijpj