id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
13	problem with inp_par.F	jacopo	arango	"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 if I add:

{{{
      DO ng=1,Ngrids
        CALL mp_bcasts (ng, model, Cname, 80)
      END DO
}}}
right before the OPEN command.

Is that correct?"	bug	closed	major	Release ROMS/TOMS 3.1	Coupling	3.1	Fixed