Opened 7 years ago

Closed 6 years ago

Last modified 6 years ago

#792 closed bug (Fixed)

Invalid calls to load_i in read_couplepar.F

Reported by: m.hadfield Owned by:
Priority: major Milestone: Release ROMS/TOMS 3.7
Component: Coupling Version: 3.7
Keywords: Cc:

Description (last modified by arango)

When ROMS/SWAN coupling is enabled, compilation of ROMS/Utility/read_couplepar.F fails on several blocks of code like this one 

            CASE ('Nthreads(ocean)')
              IF ((0.lt.Iocean).and.(Iocean.le.Nmodels)) THEN
                Npts=load_i(Nval, Rval, 1, Nthreads(Iocean))
              END IF

The fix is to rewrite them like this 

            CASE ('Nthreads(ocean)')
              IF ((0.lt.Iocean).and.(Iocean.le.Nmodels)) THEN
                Npts=load_i(Nval, Rval, 1, Ivalue)
                Nthreads(Iocean)=Ivalue(1)
              END IF

A corrected version is attached.

Attachments (1)

read_couplepar.F​ (11.6 KB ) - added by m.hadfield 7 years ago.

Download all attachments as: .zip

Change History (2)

by m.hadfield, 7 years ago

Attachment: read_couplepar.F​ added

comment:1 by arango, 6 years ago

Description: modified (diff)
Resolution: → Fixed
Status: new → closed

Yes, thank you. I missed those.

Last edited 6 years ago by arango (previous) (diff)
Note: See TracTickets for help on using tickets.