Changeset 6772 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2016-07-01T18:02:45+02:00 (8 years ago)

Author:

cbricaud

Message:

clean in coarsening branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -72 +72 @@
    PUBLIC   mpp_lnk_3d, mpp_lnk_3d_gather, mpp_lnk_2d, mpp_lnk_2d_e
    PUBLIC   mpp_lnk_2d_9 
-   PUBLIC   mppscatter, mppgather
+   PUBLIC   mppscatter, mppgather, mppgatheri
    PUBLIC   mpp_ini_ice, mpp_ini_znl
    PUBLIC   mppsize
@@ -1475 +1475 @@
    END SUBROUTINE mppgather
 
+   SUBROUTINE mppgatheri( ptab, kp, pio )
+      !!----------------------------------------------------------------------
+      !!                   ***  routine mppgather  ***
+      !!
+      !! ** Purpose :   Transfert between a local subdomain array and a work
+      !!     array which is distributed following the vertical level.
+      !!
+      !!----------------------------------------------------------------------
+      INTEGER, DIMENSION(1,1),   INTENT(in   ) ::   ptab   ! subdomain input array
+      INTEGER,                   INTENT(in   ) ::   kp     ! record length
+      INTEGER, DIMENSION(jpnij), INTENT(  out) ::   pio    ! subdomain input array
+      !!
+      INTEGER :: itaille, ierror   ! temporary integer
+      !!---------------------------------------------------------------------
+      !
+      itaille = 1
+      CALL mpi_allgather( ptab, itaille, mpi_integer, pio, itaille     ,   &
+         &                            mpi_integer, mpi_comm_opa, ierror )
+! CALL MPI_ALLGATHER ( njmpp, 1, mpi_integer, kwork, 1, mpi_integer, mpi_comm_opa, ierr )
+      !
+   END SUBROUTINE mppgatheri
+
 
    SUBROUTINE mppscatter( pio, kp, ptab )