Changeset 15131 for NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/lib_mpp.f90

Timestamp:

2021-07-21T16:37:16+02:00 (3 years ago)

Author:

dbruciaferri

Message:

introduce mes_init subroutine

File:

• NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/lib_mpp.f90 (modified) (2 diffs)

NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/lib_mpp.f90

@@ -76 +76 @@
    PUBLIC   mpp_lnk_2d_9 , mpp_lnk_2d_multiple 
    PUBLIC   mpp_lnk_sum_3d, mpp_lnk_sum_2d
-   PUBLIC   mppscatter, mppgather
+   PUBLIC   mppscatter, mppgather, mppbcast_a_real
    PUBLIC   mpp_ini_ice, mpp_ini_znl
    PUBLIC   mppsize
@@ -1847 +1847 @@
 
 
+   SUBROUTINE mppbcast_a_real( kvals, kno, kroot )
+      !!----------------------------------------------------------------------
+      !!                  ***  routine mppbcast_a_real  ***
+      !!
+      !! ** Purpose : Send array kvals to all processors
+      !!
+      !! ** Method  : MPI broadcast
+      !!
+      !!-----------------------------------------------------------------------
+      INTEGER                 , INTENT(in   ) :: kno     ! Number of elements in array
+      INTEGER                 , INTENT(in   ) :: kroot   ! Processor to send data
+      REAL(wp), DIMENSION(kno), INTENT(inout) :: kvals   ! Array to send on kroot, receive for non-kroot
+      !!
+      INTEGER                   ::   ierr    ! temporary integer
+      INTEGER                   ::   localcomm
+      !!-----------------------------------------------------------------------
+      !
+      localcomm = mpi_comm_opa
+      CALL mpi_bcast( kvals, kno, mpi_double_precision, kroot, localcomm, ierr )
+      !
+   END SUBROUTINE mppbcast_a_real
+
+
    SUBROUTINE mppmax_a_int( ktab, kdim, kcom )
       !!----------------------------------------------------------------------