Opened 10 years ago
Last modified 10 years ago
#637 closed bug
diagnostics bug — at Initial Version
| Reported by: | jcwarner | Owned by: | arango |
|---|---|---|---|
| Priority: | minor | Milestone: | Release ROMS/TOMS 3.7 |
| Component: | Nonlinear | Version: | 3.7 |
| Keywords: | Cc: |
Description
not sure why this was not seen before. but most likely because the idiag index was not exceeded. There is a bug in step3d_uv, line 937 needs to be in an idiag loop the code now has:
# if defined DIAGNOSTICS_UV && defined MASKING
DO k=1,N(ng)
DO i=Istr,Iend
DiaV3wrk(i,j,k,idiag)=DiaV3wrk(i,j,k,idiag)*vmask(i,j)
END DO
END DO
# endif
but it really needs to be:
# if defined DIAGNOSTICS_UV && defined MASKING
DO k=1,N(ng)
DO i=Istr,Iend
DO idiag=1,NDM3d
DiaV3wrk(i,j,k,idiag)=DiaV3wrk(i,j,k,idiag)*vmask(i,j)
END DO
END DO
END DO
# endif
-john
Note:
See TracTickets
for help on using tickets.
