Opened 10 years ago
Last modified 10 years ago
#631 closed bug
Corrected a bug in ana_nudgcoef.h — at Initial Version
Reported by: | arango | Owned by: | arango |
---|---|---|---|
Priority: | major | Milestone: | Release ROMS/TOMS 3.7 |
Component: | Nonlinear | Version: | 3.7 |
Keywords: | Cc: |
Description
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_exchange3d (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.
Note:
See TracTickets
for help on using tickets.