Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

BugFix: Checks to populate matrix input to Newman's app were reversed #1108

Merged
merged 3 commits into from
Apr 30, 2022
Merged

BugFix: Checks to populate matrix input to Newman's app were reversed #1108

Changes from 2 commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
5a5b4ed
BugFix: Checks to populate matrix input to Newman's app were reversed
lucas-carmo Apr 29, 2022
1e011e5
Update WAMIT2.f90
lucas-carmo Apr 29, 2022
5aa67ad
Fixed indentation
lucas-carmo Apr 29, 2022
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
12 changes: 6 additions & 6 deletions modules/hydrodyn/src/WAMIT2.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4221,15 +4221,15 @@ SUBROUTINE Read_DataFile3D( InitInp, Filename3D, Data3D, ErrStat, Errmsg )
IF ( EqualRealNos( Data3D%WvDir1(J), Data3D%WvDir2(J) ) .AND. &
EqualRealNos( Data3D%WvDir1(K), Data3D%WvDir2(K) ) ) THEN

! Check if not filled
IF ( .NOT. Data3D%DataMask( I, J, K, L ) ) THEN
! Check if filled
IF ( Data3D%DataMask( I, J, K, L ) ) THEN
andrew-platt marked this conversation as resolved.
Show resolved Hide resolved

! See if the diagonal mirror one (WvDir2,WvDir1) value is not filled,
! and fill it if empty
IF ( Data3D%DataMask( I, K, J, L ) ) THEN
Data3D%DataSet ( I, K, J, L ) = Data3D%DataSet( I, J, K, L )
Data3D%DataMask( I, K, J, L ) = .TRUE.
ENDIF
IF ( .NOT. Data3D%DataMask( I, K, J, L ) ) THEN
Data3D%DataSet ( I, K, J, L ) = Data3D%DataSet( I, J, K, L )
Data3D%DataMask( I, K, J, L ) = .TRUE.
ENDIF
ENDIF
ENDIF ! Check that wave directions will pair.
ENDIF
Expand Down