#631 closed bug (Fixed)
Corrected a bug in ana_nudgcoef.h — at Version 2
Reported by: | arango | Owned by: | arango |
---|---|---|---|
Priority: | major | Milestone: | Release ROMS/TOMS 3.7 |
Component: | Nonlinear | Version: | 3.7 |
Keywords: | Cc: |
Description (last modified by )
There is a bug in ana_nudgcoef.h in the MPI exchange of variables M3nudgcof and Tnudgcof. We need to have instead:
# ifdef SOLVE3D ! IF (LnudgeM3CLM(ng)) THEN CALL mp_exchange3d (ng, tile, model, 1, & & LBi, UBi, LBj, UBj, 1, N(ng), & & NghostPoints, .FALSE., .FALSE., & & CLIMA(ng)%M3nudgcof) END IF ! IF (ANY(LnudgeTCLM(:,ng))) THEN CALL mp_exchange4d (ng, tile, model, 1, & & LBi, UBi, LBj, UBj, 1, N(ng), 1, NTCLM(ng), & & NghostPoints, .FALSE., .FALSE., & & CLIMA(ng)%Tnudgcof) END IF # endif
Many thanks to Julia Levin for bringing this to my attention.
Change History (2)
comment:1 by , 10 years ago
Resolution: | → Fixed |
---|---|
Status: | new → closed |
comment:2 by , 10 years ago
Description: | modified (diff) |
---|
Note:
See TracTickets
for help on using tickets.