Ticket #588: inp_par.diff

File inp_par.diff, 438 bytes (added by kate, 11 years ago)

Patch for load_s2d.

  • ROMS/Utility/inp_par.F 

    diff --git a/ROMS/Utility/inp_par.F b/ROMS/Utility/inp_par.F
index c9c401c..7353495 100644
    a b  
    18401840!  symbol in the input "line" is used to advance the counters.
    18411841!
    18421842      IF (.not.load) THEN
    1843         IF (ifile.lt.nFfiles(igrid)) THEN
     1843        IF ((ifile.lt.nFfiles(igrid)).or.(Ipipe.ne.0)) THEN
    18441844          ifile=ifile+MIN(1,Icont)
    18451845        ELSE
    18461846          ifile=1