problem with inp_par.F

[jacopo]

copy paste from ROMS-3.0 version 39

---

# ifdef DISTRIBUTE

Lwrite=Master inp=1 out=stdout

!

CALL my_getarg (1,Cname) IF (MyRank.eq.0) THEN

WRITE(stdout,*) 'Coupled Input File name = ', Cname

END IF OPEN (inp, FILE=TRIM(Cname), FORM='formatted', STATUS='old', &

& ERR=10)

GO TO 30

10 WRITE (stdout,20)

WRITE(stdout,*) 'MyRank = ', MyRank, Iname

STOP

20 FORMAT (/,' INP_PAR - Unable to open coupling input script.', &

& /,11x,'In distributed-memory applications, the input', &

& /,11x,'script file is processed in parallel. The Unix', &

& /,11x,'routine GETARG is used to get script file name.', &

& /,11x,'For example, in MPI applications make sure that', &

& /,11x,'command line is something like:',/, &

& /,11x,'mpirun -np 4 masterM coupling.in',/, &

& /,11x,'and not',/, &

& /,11x,'mpirun -np 4 masterM < coupling.in',/)

30 CONTINUE

---

first: I believe that in

WRITE(stdout,*) 'MyRank = ', MyRank, Iname

it should be 'Cname' instead of 'Iname'; second: this version doesn't work for me. Instead it works adding ...

DO ng=1,Ngrids

CALL mp_bcasts (ng, model, Cname, 80)

END DO

right before the OPEN command.

Is that correct?

Jacopo