mp_collect bug when compiling with define PARALLEL_IO

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
xiaozhu557
Posts: 62
Joined: Fri Sep 11, 2009 1:48 pm
Location: nmefc

mp_collect bug when compiling with define PARALLEL_IO

#1 Post by xiaozhu557 » Thu Sep 21, 2017 3:17 am

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.

Post Reply