42 USE modi_sum_on_all_procs_ol
45 USE modi_sum_on_all_procs_mnh
46 USE modi_sum_on_all_procs_mnh_hal
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
60 LOGICAL,
DIMENSION(:),
INTENT(IN) :: oin
61 CHARACTER(LEN=3),
INTENT(IN),
OPTIONAL :: hname
67 REAL(KIND=JPRB) :: zhook_handle
70 INTEGER,
DIMENSION(SIZE(OIN)) :: iin
72 CHARACTER(LEN=3) :: yname
75 IF (lhook) CALL dr_hook(
'SUM_ON_ALL_PROCS',0,zhook_handle)
81 IF (hprogram==
'MESONH')
THEN
84 IF (present(hname)) yname = hname
85 IF (yname==
"HAL")
THEN
86 CALL sum_on_all_procs_mnh_hal(isize,iin,kout)
88 CALL sum_on_all_procs_mnh(isize,iin,kout)
91 ELSE IF (hprogram==
'AROME ' )
THEN
93 kout = max(count(oin),1)
99 IF (present(hname)) yname = hname
104 IF (lhook) CALL dr_hook(
'SUM_ON_ALL_PROCS',1,zhook_handle)
subroutine sum_on_all_procs_ol(HGRID, KSIZE, KIN, KOUT, HNAME)
integer function sum_on_all_procs(HPROGRAM, HGRID, OIN, HNAME)