Custom Query (964 matches)
Results (163 - 165 of 964)
Ticket | Owner | Reporter | Resolution | Summary |
---|---|---|---|---|
#11 | Fixed | Declaration problem in set_avg.F | ||
Description |
A few declarations missing in subroutine set_avg_tile, file set_avg.F when ASSUMED_SHAPE is not defined. Corrected file attached |
|||
#12 | Fixed | And another 3 declaration problems | ||
Description |
Corrected files attached. |
|||
#13 | Fixed | problem with inp_par.F | ||
Description |
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? |
Note:
See TracQuery
for help on using queries.