#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 )
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)
Change History (2)
by , 7 years ago
Attachment: | read_couplepar.F added |
---|
comment:1 by , 6 years ago
Description: | modified (diff) |
---|---|
Resolution: | → Fixed |
Status: | new → closed |
Note:
See TracTickets
for help on using tickets.
Yes, thank you. I missed those.