...
I use the function as it is used in many other places within OpenIFS. Does it work only for 1-d variables and returns in the input variable? Did I misunderstand something here?
edit: I found this gem in diwrgrid_mod.F90:
| Code Block |
|---|
! Should really make a version of MPL_GATHERV accepting 2D fields
ALLOCATE(ZBUF(ILEN))
ZBUF(:) = RESHAPE(PREAL,SHAPE(ZBUF))
CALL MPL_GATHERV(ZBUF,NPRCIDS(KIOPROC),CDSTRING='DIWRGRID_MOD:DIWRGRID_SEND') |
I guess that confirms it. I ended up using MPL_MPIF and the regular MPI_ALLREDUCE.
Cheers,
Jan