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

Minor MD bug fixes: Bathymetry #2013

Merged
merged 3 commits into from
Jan 29, 2024
Merged

Minor MD bug fixes: Bathymetry #2013

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
80c88a2
Remove typo in warning, retains c/con option for output flags for bac…
RyanDavies19 Jan 26, 2024
fd41e42
Bathymetry grid bug fix
RyanDavies19 Jan 29, 2024
75f987c
Bathymetry grid slope normal vector bug fix
RyanDavies19 Jan 29, 2024
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
6 changes: 3 additions & 3 deletions modules/moordyn/src/MoorDyn_IO.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -182,7 +182,7 @@ SUBROUTINE setupBathymetry(inputString, defaultDepth, BathGrid, BathGrid_Xs, Bat
READ(UnCoef,*,IOSTAT=ErrStat4) nGridY_string, nGridY ! read in the third line as the number of y values in the BathGrid

! Allocate the bathymetry matrix and associated grid x and y values
ALLOCATE(BathGrid(nGridX, nGridY), STAT=ErrStat4)
ALLOCATE(BathGrid(nGridY, nGridX), STAT=ErrStat4)
ALLOCATE(BathGrid_Xs(nGridX), STAT=ErrStat4)
ALLOCATE(BathGrid_Ys(nGridY), STAT=ErrStat4)

Expand Down Expand Up @@ -567,7 +567,7 @@ SUBROUTINE MDIO_ProcessOutList(OutList, p, m, y, InitOut, ErrStat, ErrMsg )
END IF

! Point case
ELSE IF (let1(1:1) == 'P') THEN ! Look for P?xxx or Point?xxx
ELSE IF (let1(1:1) == 'P' .OR. let1(1:1) == 'C') THEN ! Look for P?xxx or Point?xxx (C?xxx and Con?xxx for backwards compatability)
p%OutParam(I)%OType = 2 ! Point object type
qVal = let2 ! quantity type string

Expand Down Expand Up @@ -605,7 +605,7 @@ SUBROUTINE MDIO_ProcessOutList(OutList, p, m, y, InitOut, ErrStat, ErrMsg )
! error
ELSE
CALL DenoteInvalidOutput(p%OutParam(I)) ! flag as invalid
CALL WrScr('Warning: invalid output specifier '//trim(OutListTmp)//'. Must start with L, C, R, or B')
CALL WrScr('Warning: invalid output specifier '//trim(OutListTmp)//'. Must start with L, R, or B')
CYCLE
END IF

Expand Down
2 changes: 1 addition & 1 deletion modules/moordyn/src/MoorDyn_Misc.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -885,7 +885,7 @@ SUBROUTINE getDepthFromBathymetry(BathymetryGrid, BathGrid_Xs, BathGrid_Ys, Line
else
dc_dx = 0.0_DbKi ! maybe this should raise an error
end if
if ( dx > 0.0 ) then
if ( dy > 0.0 ) then
dc_dy = (cx1-cx0)/dy
else
dc_dy = 0.0_DbKi ! maybe this should raise an error
Expand Down
Loading