Changeset 11940 for NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/LBC/mppini.F90

Timestamp:

2019-11-20T22:48:28+01:00 (4 years ago)

Author:

mocavero

Message:

Add MPI3 neighbourhood collectives halo exchange in LBC and call it in tracer advection FCT scheme #2011

File:

• NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/LBC/mppini.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11470_HPC_12_mpi3/src/OCE/LBC/mppini.F90

@@ -38 +38 @@
    INTEGER :: numbot = -1  ! 'bottom_level' local logical unit
    INTEGER :: numbdy = -1  ! 'bdy_msk'      local logical unit
-   
+
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -464 +464 @@
       END DO
       nfipproc(:,:) = ipproc(:,:)
+
+      ! compute rank for MPI3 neighbourhood colectives
+      ALLOCATE(nranks(jpni*jpnj))
+      icont = 1
+      DO ji = 1, jpni
+         DO jj = 1, jpnj
+            nranks(icont) = ipproc(ji,jj)
+            icont = icont + 1
+         END DO
+      END DO
 
       ! neighbour treatment: change ibondi, ibondj if next to a land zone
@@ -694 +704 @@
          ENDIF
       ENDIF
+
+      CALL mpp_ini_nc
       !
       CALL mpp_init_ioipsl       ! Prepare NetCDF output file (if necessary)