Merge pull request #7 from nikhar-abbas/usflowt

Minor compilation bug fixes
mattEhall · Jan 13, 2022 · 6512013 · 6512013
2 parents 699cd8a + e3afd54
commit 6512013
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/modules/hydrodyn/src/Waves.f90 b/modules/hydrodyn/src/Waves.f90
@@ -30,7 +30,7 @@ MODULE Waves
 
  IMPLICIT NONE
 
- PRIVATE
+ PUBLIC
 
  TYPE(ProgDesc), PARAMETER :: Waves_ProgDesc = ProgDesc( 'Waves', '', '' )
 

diff --git a/modules/moordyn/CMakeLists.txt b/modules/moordyn/CMakeLists.txt
@@ -25,7 +25,7 @@ set(MOORDYN_LIBS_SOURCES
 )
 
 add_library(moordynlib ${MOORDYN_LIBS_SOURCES})
-target_link_libraries(moordynlib nwtclibs)
+target_link_libraries(moordynlib hydrodynlib nwtclibs)
 
 install(TARGETS moordynlib
  EXPORT "${CMAKE_PROJECT_NAME}Libraries"

diff --git a/modules/moordyn/src/MoorDyn.f90 b/modules/moordyn/src/MoorDyn.f90
@@ -24,7 +24,7 @@ MODULE MoorDyn
  USE MoorDyn_IO
  USE NWTC_Library
 
- USE WAVES, only: WaveGrid_n, WaveGrid_x0, WaveGrid_dx, WaveGrid_nx, WaveGrid_y0, WaveGrid_dy, WaveGrid_ny, WaveGrid_nz ! seeing if I can get waves data here directly...
+ USE Waves, ONLY : WaveGrid_n, WaveGrid_x0, WaveGrid_dx, WaveGrid_nx, WaveGrid_y0, WaveGrid_dy, WaveGrid_ny, WaveGrid_nz ! seeing if I can get waves data here directly...
 
  IMPLICIT NONE
 
@@ -6994,7 +6994,7 @@ SUBROUTINE ScaleVector( u_in, newlength, u_out )
  if (length_squared > 0) then
  scaler = newlength/sqrt(length_squared)
  else ! if original vector is zero, return zero
- scaler = 0_DbKi
+ scaler = 0.0_DbKi
  end if
 
  DO J=1,3