mp_collect bug when compiling with define PARALLEL_IO

[xiaozhu557]

Dear all,
I want to try the parallel input/output in order to increase the speed of I/O. But I have found a bug with the function mp_collect when I compiled the ROMS code 857 with the option #define PARALLEL_IO.

I have double checked that the parameter A of function mp_collect_f(ng,model,Npts,Aspv,A) is defined in the MODULE distribute_mod as

Code: Select all

integer, intent(inout) :: A(Npts)

, however it is used in the function nf_fread2d with the parameter Awrk is defined as

Code: Select all

real(r8),allocatable :: Awrk(:,:)

So, while compling it with the option #define PARALLEL_IO, I have got the error messages as follow,

nf_fread2d.f90(314): error #6285: There is no matching specific subroutine for this generic subroutine call. [MP_COLLECT]

Code: Select all

CALL mp_collect (ng, model, Npts, IniVal, Awrk)

-----------------^
compilation aborted for nf_fread2d.f90 (code 1)
make: *** [/fs01/home/Build/nf_fread2d.o] Error 1
make: *** Waiting for unfinished jobs....

Anyone can help me to figure out this bug? Thanks.