Skip to content
Draft
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions model/src/w3psmcmd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -888,6 +888,9 @@ SUBROUTINE W3PSMC ( ISP, DTG, VQ )
/CG(IK,ISEA)
#endif
END DO
! Because ISBPI may return 0 for unmatched boundary points, this b.c
! update may set CQ(0) values non-zero. JGLi06May2026
CQ(0) = 0.0
ENDIF
!
!! End of ITLOC DO
Expand Down
Loading