30 mpp_type_,
intent(inout) :: a
31 integer,
intent(in),
optional :: pelist(:)
35 if( debug )
call mpp_error( note,
'MPP_SUM_SCALAR_: calling MPP_SUM_ ...' )
36 call mpp_sum_( b, 1, pelist )
44 mpp_type_,
intent(inout) :: a(:,:)
45 integer,
intent(in) :: length
46 integer,
intent(in),
optional :: pelist(:)
47 mpp_type_ :: a1d(length)
51 call mpp_sum( a1d, length, pelist )
59 mpp_type_,
intent(inout) :: a(:,:,:)
60 integer,
intent(in) :: length
61 integer,
intent(in),
optional :: pelist(:)
62 mpp_type_ :: a1d(length)
66 call mpp_sum( a1d, length, pelist )
74 mpp_type_,
intent(inout) :: a(:,:,:,:)
75 integer,
intent(in) :: length
76 integer,
intent(in),
optional :: pelist(:)
77 mpp_type_ :: a1d(length)
81 call mpp_sum( a1d, length, pelist )
89 mpp_type_,
intent(inout) :: a(:,:,:,:,:)
90 integer,
intent(in) :: length
91 integer,
intent(in),
optional :: pelist(:)
92 mpp_type_ :: a1d(length)
96 call mpp_sum( a1d, length, pelist )
subroutine mpp_sum_2d_(a, length, pelist)
Sums 2d array across pes.
subroutine mpp_sum_3d_(a, length, pelist)
Sums 3d array across pes.
subroutine mpp_sum_scalar_(a, pelist)
Sums array a when only first element is passed: this routine just converts to a call to MPP_SUM_.
subroutine mpp_sum_4d_(a, length, pelist)
Sums 4d array across pes.
subroutine mpp_sum_5d_(a, length, pelist)
Sums 5d array across pes.