From 69fb0b87f6f55e74dd909085e9ef6d0bf4768aa3 Mon Sep 17 00:00:00 2001
From: Ganesh Vijayakumar <ganesh.vijayakumar@nrel.gov>
Date: Mon, 11 Dec 2023 12:10:04 -0700
Subject: [PATCH] Fix issues to get C++ API to run

---
 glue-codes/openfast-cpp/src/FAST_Prog.cpp     |  7 +++++--
 glue-codes/openfast-cpp/src/OpenFAST.cpp      | 16 +++++++++++++---
 modules/openfast-library/src/FAST_Library.f90 | 12 +++++++++---
 3 files changed, 27 insertions(+), 8 deletions(-)

diff --git a/glue-codes/openfast-cpp/src/FAST_Prog.cpp b/glue-codes/openfast-cpp/src/FAST_Prog.cpp
index ab68e388ef..1143313b3e 100644
--- a/glue-codes/openfast-cpp/src/FAST_Prog.cpp
+++ b/glue-codes/openfast-cpp/src/FAST_Prog.cpp
@@ -71,6 +71,9 @@ void readTurbineData(int iTurb, fast::fastInputs & fi, YAML::Node turbNode) {
 
   get_if_present(turbNode, "num_force_pts_blade", fi.globTurbineData[iTurb].numForcePtsBlade, 0);
   get_if_present(turbNode, "num_force_pts_tower", fi.globTurbineData[iTurb].numForcePtsTwr, 0);
+  fi.globTurbineData[iTurb].numForcePts =
+      fi.globTurbineData[iTurb].numForcePtsBlade +
+      fi.globTurbineData[iTurb].numForcePtsTwr;
 
   float fZero = 0.0;
   get_if_present(turbNode, "nacelle_cd", fi.globTurbineData[iTurb].nacelle_cd, fZero);
@@ -145,7 +148,7 @@ void readInputFile(fast::fastInputs & fi, std::string cInterfaceInputFile, doubl
         get_if_present(cDriverInp, "set_exp_law_wind", *setExpLawWind, false);
         get_if_present(cDriverInp, "set_uniform_x_blade_forces", *setUniformXBladeForces, false);
         if (setUniformXBladeForces)
-            get_required(cDriverInp, "x_blade_force", *xBladeForce);
+            get_if_present(cDriverInp, "x_blade_force", *xBladeForce, 0.0);
 
         get_if_present(cDriverInp, "super_controller", fi.scStatus, false);
         if(fi.scStatus) {
@@ -197,7 +200,7 @@ int main(int argc, char** argv) {
     bool setUniformXBladeForces; // Set uniform X blade forces on all blade nodes
     int nIter;
     double xBladeForce = 0.0;
-    
+
     std::string cDriverInputFile=argv[1];
     fast::OpenFAST FAST;
     fast::fastInputs fi ;
diff --git a/glue-codes/openfast-cpp/src/OpenFAST.cpp b/glue-codes/openfast-cpp/src/OpenFAST.cpp
index 0b002df101..d9fd1cb20c 100644
--- a/glue-codes/openfast-cpp/src/OpenFAST.cpp
+++ b/glue-codes/openfast-cpp/src/OpenFAST.cpp
@@ -224,7 +224,8 @@ void fast::OpenFAST::prepareRestartFile(int iTurbLoc) {
     ierr = nc_enddef(ncid);
     check_nc_error(ierr, "nc_enddef");
 
-    if (turbineData[iTurbLoc].sType == EXTINFLOW) {
+    if ( (turbineData[iTurbLoc].sType == EXTINFLOW) && (turbineData[iTurbLoc].inflowType == 2) ) {
+
         int nfpts_data = 3*get_numForcePtsLoc(iTurbLoc);
         int ierr = nc_put_var_double(ncid, ncRstVarIDs_["xref_force"], velForceNodeData[iTurbLoc][fast::STATE_NP1].xref_force.data());
     }
@@ -729,6 +730,8 @@ void fast::OpenFAST::init() {
                         ErrMsg);
                     checkError(ErrStat, ErrMsg);
 
+                    std::cerr << "turbineData[iTurb].inflowType = " << turbineData[iTurb].inflowType << std::endl;
+
                     turbineData[iTurb].numVelPtsTwr = extinfw_o_t_FAST[iTurb].u_Len - turbineData[iTurb].numBlades*turbineData[iTurb].numVelPtsBlade - 1;
                     if(turbineData[iTurb].numVelPtsTwr == 0) {
                         turbineData[iTurb].numForcePtsTwr = 0;
@@ -2118,6 +2121,11 @@ void fast::OpenFAST::allocateMemory_postInit(int iTurbLoc) {
                 }
             }
         }
+        std::cerr << "turbineData[iTurbLoc].inflowType " << turbineData[iTurbLoc].inflowType << std::endl;
+        std::cerr << "turbineData[iTurbLoc].numForcePtsTwr = " << turbineData[iTurbLoc].numForcePtsTwr << std::endl;
+        std::cerr << "turbineData[iTurbLoc].numForcePtsBlade = " << turbineData[iTurbLoc].numForcePtsBlade << std::endl;
+        std::cerr << "turbineData[iTurbLoc].numForcePts = " << turbineData[iTurbLoc].numForcePts << std::endl;
+
 
     } else if (turbineData[iTurbLoc].sType == EXTLOADS) {
         turbineData[iTurbLoc].nBRfsiPtsBlade.resize(turbineData[iTurbLoc].numBlades);
@@ -2360,6 +2368,8 @@ void fast::OpenFAST::get_data_from_openfast(timeStep t) {
             if (turbineData[iTurb].inflowType == 2) {
                 int nvelpts = get_numVelPtsLoc(iTurb);
                 int nfpts = get_numForcePtsLoc(iTurb);
+                std::cerr << "nvelpts = " << nvelpts << std::endl;
+                std::cerr << "nfpts = " << nfpts << "  " << get_numForcePtsBladeLoc(iTurb) << " " << get_numForcePtsTwrLoc(iTurb) << std::endl;
                 for (int i=0; i<nvelpts; i++) {
                     velForceNodeData[iTurb][t].x_vel_resid += (velForceNodeData[iTurb][t].x_vel[i*3+0] - extinfw_i_f_FAST[iTurb].pxVel[i])*(velForceNodeData[iTurb][t].x_vel[i*3+0] - extinfw_i_f_FAST[iTurb].pxVel[i]);
                     velForceNodeData[iTurb][t].x_vel[i*3+0] = extinfw_i_f_FAST[iTurb].pxVel[i];
@@ -2588,7 +2598,7 @@ void fast::OpenFAST::writeOutputFile(int iTurbLoc, int n_t_global) {
     double curTime = n_t_global * dtFAST;
     ierr = nc_put_vara_double(ncid, ncOutVarIDs_["time"], &n_tsteps, &count1, &curTime);
 
-    if (turbineData[iTurbLoc].sType == EXTINFLOW) {
+    if ( (turbineData[iTurbLoc].sType == EXTINFLOW) && (turbineData[iTurbLoc].inflowType == 2) ) {
 
         // Nothing to do here yet
         int nBlades = get_numBladesLoc(iTurbLoc);
@@ -2883,7 +2893,7 @@ void fast::OpenFAST::writeRestartFile(int iTurbLoc, int n_t_global) {
     double curTime = n_t_global * dtFAST;
     ierr = nc_put_vara_double(ncid, ncRstVarIDs_["time"], &n_tsteps, &count1, &curTime);
 
-    if (turbineData[iTurbLoc].sType == EXTINFLOW) {
+    if ( (turbineData[iTurbLoc].sType == EXTINFLOW) && (turbineData[iTurbLoc].inflowType == 2) ){
 
         int nvelpts = get_numVelPtsLoc(iTurbLoc);
         int nfpts = get_numForcePtsLoc(iTurbLoc);
diff --git a/modules/openfast-library/src/FAST_Library.f90 b/modules/openfast-library/src/FAST_Library.f90
index db8780f82c..0482eecf4e 100644
--- a/modules/openfast-library/src/FAST_Library.f90
+++ b/modules/openfast-library/src/FAST_Library.f90
@@ -704,13 +704,19 @@ subroutine FAST_ExtInfw_Init(iTurb, TMax, InputFileName_c, TurbID, OutFileRoot_c
 
    dt_c = Turbine(iTurb)%p_FAST%dt
 
-   InflowType = Turbine(iTurb)%p_FAST%CompInflow
+   if (Turbine(iTurb)%p_FAST%CompInflow == Module_ExtInfw) then
+      InflowType = 2
+   else if (Turbine(iTurb)%p_FAST%CompInflow == Module_IfW) then
+      InflowType = 1
+   else
+      InflowType = 0
+   end if
 
-   if ( (InflowType == 3) .and. (NumActForcePtsBlade .eq. 0) .and. (NumActForcePtsTower .eq. 0) ) then
+   if ( (Turbine(iTurb)%p_FAST%CompInflow == Module_ExtInfw) .and. (NumActForcePtsBlade .eq. 0) .and. (NumActForcePtsTower .eq. 0) ) then
       CALL SetErrStat(ErrID_Warn, "Number of actuator points is zero when inflow type is 2. Mapping of loads may not work. ", ErrStat, ErrMsg, RoutineName )
    end if
 
-   if ( (InflowType .ne. 3) .and. ((NumActForcePtsBlade .ne. 0) .or. (NumActForcePtsTower .ne. 0)) ) then
+   if ( (Turbine(iTurb)%p_FAST%CompInflow .ne. Module_ExtInfw) .and. ((NumActForcePtsBlade .ne. 0) .or. (NumActForcePtsTower .ne. 0)) ) then
       !!FAST reassigns CompInflow after reading it to a module number based on an internal list in the FAST_Registry. So 2 in input file becomes 3 inside the code.
       CALL SetErrStat(ErrID_Fatal, "Number of requested actuator points is non-zero when inflow type is not 2. Please set number of actuator points to zero when induction is turned on.", ErrStat, ErrMsg, RoutineName )
       ErrStat_c = ErrStat