distribute_mod::mp_bcastf Interface Reference

Public Member Functions
subroutine	mp_bcastf_0dp (ng, model, a, inpcomm)
subroutine	mp_bcastf_1dp (ng, model, a, inpcomm)
subroutine	mp_bcastf_2dp (ng, model, a, inpcomm)
subroutine	mp_bcastf_3dp (ng, model, a, inpcomm)
subroutine	mp_bcastf_0d (ng, model, a, inpcomm)
subroutine	mp_bcastf_1d (ng, model, a, inpcomm)
subroutine	mp_bcastf_2d (ng, model, a, inpcomm)
subroutine	mp_bcastf_3d (ng, model, a, inpcomm)
subroutine	mp_bcastf_4d (ng, model, a, inpcomm)

Detailed Description

Definition at line 75 of file distribute.F.

Member Function/Subroutine Documentation

mp_bcastf_0d()

subroutine distribute_mod::mp_bcastf::mp_bcastf_0d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(r8), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 560 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a floating-point scalar variable to all     !
!  processors in the communicator. It is called by all the members     !
!  in the group.                                                       !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          Variable to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted variable.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(r8), intent(inout) :: A
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_0d"
 
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
# endif
# ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      npts=1
# ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_0D - error during ',a,' call, Task = ',   &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
# endif
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
# endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_0dp()

subroutine distribute_mod::mp_bcastf::mp_bcastf_0dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(dp), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 195 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a double-precision scalar variable to all   !
!  processors in the communicator. It is called by all the members in  !
!  the group.                                                          !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          Variable to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted variable.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
 
      real(dp), intent(inout) :: A
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_0dp"
 
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
#  endif
#  ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
#  endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      npts=1
#  ifdef MPI
      CALL mpi_bcast (a, npts, mp_double, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_0DP - error during ',a,' call, Task = ',  &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
#  endif
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
#  endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_double, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_1d()

subroutine distribute_mod::mp_bcastf::mp_bcastf_1d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(r8), dimension(:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 648 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 1D floating-point, non-tiled, array       !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          1D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 1D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(r8), intent(inout) :: A(:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_1d"
 
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
# endif
# ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      npts=ubound(a, dim=1)
 
# ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_1D - error during ',a,' call, Task = ',   &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
# endif
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
# endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_1dp()

subroutine distribute_mod::mp_bcastf::mp_bcastf_1dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(dp), dimension(:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 283 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 1D double-precission, non-tiled, array    !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          1D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 1D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(dp), intent(inout) :: A(:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_1dp"
 
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
#  endif
#  ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
#  endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      npts=ubound(a, dim=1)
 
#  ifdef MPI
      CALL mpi_bcast (a, npts, mp_double, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_1DP - error during ',a,' call, Task = ',  &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
#  endif
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
#  endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_double, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_2d()

subroutine distribute_mod::mp_bcastf::mp_bcastf_2d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(r8), dimension(:,:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 737 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 2D floating-point, non-tiled, array       !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          2D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 2D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(r8), intent(inout) :: A(:,:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
 
      integer :: Asize(2)
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_2d"
 
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
# endif
# ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      asize(1)=ubound(a, dim=1)
      asize(2)=ubound(a, dim=2)
      npts=asize(1)*asize(2)
 
# ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_2D - error during ',a,' call, Task = ',   &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
# endif
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
# endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_2dp()

subroutine distribute_mod::mp_bcastf::mp_bcastf_2dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(dp), dimension(:,:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 372 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 2D double-preision, non-tiled, array      !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          2D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 2D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(dp), intent(inout) :: A(:,:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
 
      integer :: Asize(2)
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_2dp"
 
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
#  endif
#  ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
#  endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      asize(1)=ubound(a, dim=1)
      asize(2)=ubound(a, dim=2)
      npts=asize(1)*asize(2)
 
#  ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_2DP - error during ',a,' call, Task = ',  &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
#  endif
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
#  endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_3d()

subroutine distribute_mod::mp_bcastf::mp_bcastf_3d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(r8), dimension(:,:,:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 830 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 3D floating-point, non-tiled, array       !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          3D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 3D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(r8), intent(inout) :: A(:,:,:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
 
      integer :: Asize(3)
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_3d"
 
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
# endif
# ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      asize(1)=ubound(a, dim=1)
      asize(2)=ubound(a, dim=2)
      asize(3)=ubound(a, dim=3)
      npts=asize(1)*asize(2)*asize(3)
 
# ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_3D - error during ',a,' call, Task = ',   &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
# endif
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
# endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_3dp()

subroutine distribute_mod::mp_bcastf::mp_bcastf_3dp	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(dp), dimension(:,:,:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 465 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 3D double-precision, non-tiled, array     !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          3D array to broadcast (real).                         !
!     InpComm    Communicator handle (integer, OPTIONAL).              !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 3D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(dp), intent(inout) :: A(:,:,:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
 
      integer :: Asize(3)
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_3d"
 
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
#  endif
#  ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
#  endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      asize(1)=ubound(a, dim=1)
      asize(2)=ubound(a, dim=2)
      asize(3)=ubound(a, dim=3)
      npts=asize(1)*asize(2)*asize(3)
 
#  ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_3DP - error during ',a,' call, Task = ',  &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
#  endif
#  ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
#  endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

mp_bcastf_4d()

subroutine distribute_mod::mp_bcastf::mp_bcastf_4d	(	integer, intent(in)	ng,
		integer, intent(in)	model,
		real(r8), dimension(:,:,:,:), intent(inout)	a,
		integer, intent(in), optional	inpcomm )

Definition at line 924 of file distribute.F.

!
!***********************************************************************
!                                                                      !
!  This routine broadcasts a 4D floating-point, non-tiled, array       !
!  to all processors in the communicator. It is called by all the      !
!  members in the group.                                               !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     ng         Nested grid number.                                   !
!     model      Calling model identifier.                             !
!     A          4D array to broadcast (real).                         !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     A          Broadcasted 4D array.                                 !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
 
      integer, intent(in), optional :: InpComm
!
      real(r8), intent(inout) :: A(:,:,:,:)
!
!  Local variable declarations
!
      integer :: Lstr, MyCOMM, MyError, Npts, Serror
 
      integer :: Asize(4)
!
      character (len=MPI_MAX_ERROR_STRING) :: string
 
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", mp_bcastf_4d"
 
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn on time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_on (ng, model, 64, __line__, myfile)
# endif
# ifdef MPI
!
!-----------------------------------------------------------------------
!  Set distributed-memory communicator handle (context ID).
!-----------------------------------------------------------------------
!
      IF (PRESENT(inpcomm)) THEN
        mycomm=inpcomm
      ELSE
        mycomm=ocn_comm_world
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Broadcast requested variable.
!-----------------------------------------------------------------------
!
      asize(1)=ubound(a, dim=1)
      asize(2)=ubound(a, dim=2)
      asize(3)=ubound(a, dim=3)
      asize(4)=ubound(a, dim=4)
      npts=asize(1)*asize(2)*asize(3)*asize(4)
 
# ifdef MPI
      CALL mpi_bcast (a, npts, mp_float, mymaster, mycomm, myerror)
      IF (myerror.ne.mpi_success) THEN
        CALL mpi_error_string (myerror, string, lstr, serror)
        lstr=len_trim(string)
        WRITE (stdout,10) 'MPI_BCAST', myrank, myerror, string(1:lstr)
 10     FORMAT (/,' MP_BCASTF_4D - error during ',a,' call, Task = ',   &
     &          i3.3,' Error = ',i3,/,13x,a)
        exit_flag=2
        RETURN
      END IF
# endif
# ifdef PROFILE
!
!-----------------------------------------------------------------------
!  Turn off time clocks.
!-----------------------------------------------------------------------
!
      CALL wclock_off (ng, model, 64, __line__, myfile)
# endif
!
      RETURN

References mod_scalars::exit_flag, mod_parallel::mp_float, mod_parallel::mymaster, mod_parallel::myrank, mod_parallel::ocn_comm_world, mod_iounits::stdout, wclock_off(), and wclock_on().

Here is the call graph for this function:

---

The documentation for this interface was generated from the following file:

• ROMS/Utility/distribute.F