OpenFAST 4.1.0: changes to ExtInfw (#1665)

---------

Co-authored-by: Marc Henry de Frahan <[email protected]>

Author: mbkuhn

CMakeLists.txt

@@ -180,11 +180,14 @@ if(AMR_WIND_ENABLE_OPENFAST)
 
   set(AMR_WIND_OPENFAST_VERSION "3" CACHE STRING "OpenFAST major version")
   if((AMR_WIND_OPENFAST_VERSION STREQUAL "master") OR (AMR_WIND_OPENFAST_VERSION STREQUAL "main") OR (AMR_WIND_OPENFAST_VERSION STREQUAL "develop"))
-    set(AMR_WIND_OPENFAST_VERSION "4.0")
+    set(AMR_WIND_OPENFAST_VERSION "4.1")
   endif()
   if(NOT AMR_WIND_OPENFAST_VERSION VERSION_LESS "5")
     message(FATAL_ERROR "AMR_WIND_OPENFAST_VERSION must be less than 5.")
   endif()
+  if(AMR_WIND_OPENFAST_VERSION VERSION_GREATER_EQUAL "4" AND AMR_WIND_OPENFAST_VERSION VERSION_LESS "4.1")
+    message(FATAL_ERROR "AMR-Wind does not support OpenFAST version 4.0. Either update to 4.1 or revert to 3.")
+  endif()
   string(REPLACE "." ";" OPENFAST_VERSION_LIST ${AMR_WIND_OPENFAST_VERSION})
   list(LENGTH OPENFAST_VERSION_LIST OPENFAST_VERSION_LIST_LENGTH)
   if(OPENFAST_VERSION_LIST_LENGTH GREATER_EQUAL 1)

amr-wind/wind_energy/actuator/turbine/fast/FastIface.cpp

@@ -224,12 +224,10 @@ void FastIface::fast_init_turbine(FastTurbine& fi)
     char out_file[fast_strlen()];
     fast_func(
         FAST_ExtInfw_Init, &fi.tid_local, &fi.stop_time, inp_file.begin(),
-        &fi.tid_global, out_file, &m_num_sc_inputs_glob, &m_num_sc_inputs,
-        &m_num_sc_outputs, &m_init_sc_inputs_glob, &m_init_sc_inputs_turbine,
-        &fi.num_pts_blade, &fi.num_pts_tower, fi.base_pos.begin(), &abort_lev,
-        &fi.dt_cfd, &fi.dt_fast, &m_inflow_type, &fi.num_blades,
-        &fi.num_blade_elem, &fi.num_tower_elem, &fi.chord_cluster_type,
-        &fi.to_cfd, &fi.from_cfd, &fi.to_sc, &fi.from_sc);
+        &fi.tid_global, out_file, &fi.num_pts_blade, &fi.num_pts_tower,
+        fi.base_pos.begin(), &abort_lev, &fi.dt_cfd, &fi.dt_fast,
+        &m_inflow_type, &fi.num_blades, &fi.num_blade_elem, &fi.num_tower_elem,
+        &fi.chord_cluster_type, &fi.to_cfd, &fi.from_cfd);
 #else
     fast_func(
         FAST_OpFM_Init, &fi.tid_local, &fi.stop_time, inp_file.begin(),
@@ -337,7 +335,7 @@ void FastIface::fast_restart_turbine(FastTurbine& fi)
     fast_func(
         FAST_ExtInfw_Restart, &fi.tid_local, chkpt_file.begin(), &abort_lev,
         &fi.dt_fast, &fi.num_blades, &fi.num_blade_elem, &fi.num_tower_elem,
-        &fi.time_index, &fi.to_cfd, &fi.from_cfd, &fi.to_sc, &fi.from_sc);
+        &fi.time_index, &fi.to_cfd, &fi.from_cfd);
 #else
     fast_func(
         FAST_OpFM_Restart, &fi.tid_local, chkpt_file.begin(), &abort_lev,

amr-wind/wind_energy/actuator/turbine/fast/fast_types.H

@@ -94,8 +94,10 @@ struct FastTurbine
     exw_fast::OfInputType to_cfd;
     exw_fast::OfOutputType from_cfd;
 
+#if OPENFAST_VERSION_MAJOR != 4
     exw_fast::SC_DX_InputType to_sc;
     exw_fast::SC_DX_OutputType from_sc;
+#endif
 };
 
 } // namespace exw_fast

amr-wind/wind_energy/actuator/turbine/fast/fast_wrapper.H

@@ -20,11 +20,6 @@ inline constexpr int fast_strlen() { return INTERFACE_STRING_LENGTH; }
 #define ErrID_Severe 3
 #define ErrID_Fatal 4
 
-struct SC_DX_InputType
-{};
-struct SC_DX_OutputType
-{};
-
 inline constexpr int fast_strlen() { return 1025; }
 
 inline void exw_fast_output_redirect(char* /*unused*/) {}
@@ -68,11 +63,6 @@ inline void FAST_ExtInfw_Init(
     const char* /*unused*/,
     int* /*unused*/,
     int* /*unused*/,
-    int* /*unused*/,
-    float* /*unused*/,
-    float* /*unused*/,
-    int* /*unused*/,
-    int* /*unused*/,
     float* /*unused*/,
     int* /*unused*/,
     double* /*unused*/,
@@ -83,8 +73,6 @@ inline void FAST_ExtInfw_Init(
     int* /*unused*/,
     OpFM_InputType* /*unused*/,
     OpFM_OutputType* /*unused*/,
-    SC_DX_InputType* /*unused*/,
-    SC_DX_OutputType* /*unused*/,
     int* /*unused*/,
     char* /*unused*/)
 {}
@@ -99,8 +87,6 @@ inline void FAST_ExtInfw_Restart(
     int* /*unused*/,
     OpFM_InputType* /*unused*/,
     OpFM_OutputType* /*unused*/,
-    SC_DX_InputType* /*unused*/,
-    SC_DX_OutputType* /*unused*/,
     int* /*unused*/,
     char* /*unused*/)
 {}
@@ -112,6 +98,11 @@ struct OpFM_InputType
 struct OpFM_OutputType
 {};
 
+struct SC_DX_InputType
+{};
+struct SC_DX_OutputType
+{};
+
 inline void
 FAST_OpFM_Solution0(int* /*unused*/, int* /*unused*/, char* /*unused*/)
 {}