49 USE modi_sum_on_all_procs
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 REAL,
DIMENSION(:),
ALLOCATABLE :: zunity
69 INTEGER :: jcover, icpt
70 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'AVERAGE2_COVER',0,zhook_handle)
77 ALLOCATE(zunity(
SIZE(nsize)))
80 DO jcover=1,
SIZE(xsumcover,2)
82 IF (icpt>0) u%LCOVER(jcover) = .true.
85 ALLOCATE(u%XCOVER(
SIZE(nsize),count(u%LCOVER)))
88 DO jcover=1,
SIZE(xsumcover,2)
89 IF (u%LCOVER(jcover))
THEN
92 u%XCOVER(:,icpt)=xsumcover(:,jcover) /nsize(:)
93 zunity(:)=zunity(:) + u%XCOVER(:,icpt)
98 DO jcover=1,
SIZE(u%XCOVER,2)
100 u%XCOVER(:,jcover)=u%XCOVER(:,jcover) / zunity(:)
106 IF (lhook) CALL dr_hook(
'AVERAGE2_COVER',1,zhook_handle)
subroutine average2_cover(U, HPROGRAM)
integer function sum_on_all_procs(HPROGRAM, HGRID, OIN, HNAME)