Opened 6 years ago

Last modified 6 years ago

#792 closed bug

Invalid calls to load_i in read_couplepar.F — at Initial Version

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

Description

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.

Change History (1)

by m.hadfield, 6 years ago

Attachment: read_couplepar.F​ added
Note: See TracTickets for help on using tickets.