Opened 18 years ago
Closed 18 years ago
#13 closed bug (Fixed)
problem with inp_par.F
Reported by: | jacopo | Owned by: | arango |
---|---|---|---|
Priority: | major | Milestone: | Release ROMS/TOMS 3.1 |
Component: | Coupling | Version: | 3.1 |
Keywords: | Cc: |
Description (last modified by )
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?
Change History (2)
comment:1 by , 18 years ago
Description: | modified (diff) |
---|
comment:2 by , 18 years ago
Resolution: | → fixed |
---|---|
Status: | new → closed |
Note:
See TracTickets
for help on using tickets.