Custom Query (964 matches)

A few declarations missing in subroutine set_avg_tile, file set_avg.F when ASSUMED_SHAPE is not defined. Corrected file attached

• mod_param.F: NBT not declared when ECOSIM is defined

• set_vbc.F: missing #ifs

Corrected files attached.

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?