C-bindings interface for HydroDyn

.github/actions/tests-module-hydrodyn/action.yml

@@ -4,6 +4,6 @@ author: 'Rafael Mudafort https://github.com/rafmudaf'
 runs:
   using: "composite"
   steps:  
-    - run: ctest -VV -j7 -R hd_
+    - run: ctest -VV -j7 -R hd_ -LE python
       working-directory: ${{runner.workspace}}/openfast/build
       shell: bash

.github/workflows/automated-dev-tests.yml

@@ -455,6 +455,7 @@ jobs:
           cmake --build . --target openfastlib -- -j ${{env.NUM_PROCS}}
           cmake --build . --target openfast_cpp -- -j ${{env.NUM_PROCS}}
           cmake --build . --target openfastcpp -- -j ${{env.NUM_PROCS}}
+          cmake --build . --target hydrodyn_c_binding -- -j ${{env.NUM_PROCS}}
           cmake --build . --target ifw_c_binding -- -j ${{env.NUM_PROCS}}
           cmake --build . --target regression_tests -- -j ${{env.NUM_PROCS}}
 
@@ -493,5 +494,6 @@ jobs:
           name: c-interface-reg-tests
           path: |
             ${{runner.workspace}}/openfast/build/reg_tests/glue-codes/openfast-cpp
+            ${{runner.workspace}}/openfast/build/reg_tests/modules/hydrodyn
             ${{runner.workspace}}/openfast/build/reg_tests/modules/inflowwind
             !${{runner.workspace}}/openfast/build/reg_tests/glue-codes/openfast-cpp/5MW_Baseline

modules/hydrodyn/CMakeLists.txt

@@ -59,14 +59,21 @@ set(HYDRODYN_SOURCES
 add_library(hydrodynlib ${HYDRODYN_SOURCES})
 target_link_libraries(hydrodynlib nwtclibs)
 
+# c-bindings interface library
+add_library(hydrodyn_c_binding SHARED src/HydroDyn_C_Binding.f90)
+target_link_libraries(hydrodyn_c_binding hydrodynlib)
+if(APPLE OR UNIX)
+   target_compile_definitions(hydrodyn_c_binding PUBLIC  -DIMPLICIT_DLLEXPORT)
+endif()
+
 add_executable(hydrodyn_driver src/HydroDyn_DriverCode.f90)
 target_link_libraries(hydrodyn_driver hydrodynlib nwtclibs versioninfolib)
 
 #add_executable(ss_radiation
 #  src/SS_Radiation_DriverCode.f90)
 #target_link_libraries(ss_radiation hydrodynlib nwtclibs)
 
-install(TARGETS hydrodynlib hydrodyn_driver
+install(TARGETS hydrodynlib hydrodyn_driver hydrodyn_c_binding
   EXPORT "${CMAKE_PROJECT_NAME}Libraries"
   RUNTIME DESTINATION bin
   LIBRARY DESTINATION lib

modules/hydrodyn/src/HydroDyn.f90

@@ -1793,52 +1793,47 @@ SUBROUTINE HydroDyn_End( u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg )
       CHARACTER(*),                       INTENT(  OUT)  :: ErrMsg      !< Error message if ErrStat /= ErrID_None
 
 
+      INTEGER(IntKi)                         :: ErrStat2                            ! local error status
+      CHARACTER(ErrMsgLen)                   :: ErrMsg2                             ! local error message
+      CHARACTER(*), PARAMETER                :: RoutineName = 'HydroDyn_End'
 
          ! Initialize ErrStat
 
       ErrStat = ErrID_None         
       ErrMsg  = ""               
 
-
-         ! Place any last minute operations or calculations here:
-
-
 
          ! Write the HydroDyn-level output file data if the user requested module-level output
          ! and the current time has advanced since the last stored time step.
-
       IF ( p%OutSwtch == 1 .OR. p%OutSwtch == 3) THEN               
-         CALL HDOut_WriteOutputs( m%LastOutTime, y, p, m%Decimate, ErrStat, ErrMsg )         
+         CALL HDOut_WriteOutputs( m%LastOutTime, y, p, m%Decimate, ErrStat2, ErrMsg2 )
+            call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )         
       END IF          
 
          ! Close files here:  
-      CALL HDOut_CloseOutput( p, ErrStat, ErrMsg )           
+      CALL HDOut_CloseOutput( p, ErrStat2, ErrMsg2 )
+         call SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )         
 
 
-         ! Destroy the input data:
-
-      CALL HydroDyn_DestroyInput( u, ErrStat, ErrMsg )
+         ! Destroy the input data: (ignore errors)
+      CALL HydroDyn_DestroyInput( u, ErrStat2, ErrMsg2 )
 
 
-         ! Destroy the parameter data:
-
-      CALL HydroDyn_DestroyParam( p, ErrStat, ErrMsg )
+         ! Destroy the parameter data: (ignore errors)
+      CALL HydroDyn_DestroyParam( p, ErrStat2, ErrMsg2 )
 
 
-         ! Destroy the state data:
-
-      CALL HydroDyn_DestroyContState(   x,           ErrStat, ErrMsg )
-      CALL HydroDyn_DestroyDiscState(   xd,          ErrStat, ErrMsg )
-      CALL HydroDyn_DestroyConstrState( z,           ErrStat, ErrMsg )
-      CALL HydroDyn_DestroyOtherState(  OtherState,  ErrStat, ErrMsg )
+         ! Destroy the state data: (ignore errors)
+      CALL HydroDyn_DestroyContState(   x,           ErrStat2, ErrMsg2 )
+      CALL HydroDyn_DestroyDiscState(   xd,          ErrStat2, ErrMsg2 )
+      CALL HydroDyn_DestroyConstrState( z,           ErrStat2, ErrMsg2 )
+      CALL HydroDyn_DestroyOtherState(  OtherState,  ErrStat2, ErrMsg2 )
 
-         ! Destroy misc variables:
-
-      CALL HydroDyn_DestroyMisc( m, ErrStat, ErrMsg )
+         ! Destroy misc variables: (ignore errors)
+      CALL HydroDyn_DestroyMisc( m, ErrStat2, ErrMsg2 )
 
-         ! Destroy the output data:
-
-      CALL HydroDyn_DestroyOutput( y, ErrStat, ErrMsg )
+         ! Destroy the output data: (ignore errors)
+      CALL HydroDyn_DestroyOutput( y, ErrStat2, ErrMsg2 )
 
 
 END SUBROUTINE HydroDyn_End