Merge remote-tracking branch 'OpenFAST/dev-unstable-pointers' into f/…

…ADI_c_binding_multiRotor
OpenFAST · Sep 26, 2023 · 2a03dd2 · 2a03dd2
2 parents 10d561a + 0f3bf0d
commit 2a03dd2
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/modules/openfoam/src/OpenFOAM.f90 b/modules/openfoam/src/OpenFOAM.f90
@@ -254,11 +254,9 @@ SUBROUTINE Init_OpFM( InitInp, p_FAST, AirDens, u_AD, initOut_AD, y_AD, OpFM, In
       call SetErrStat( ErrID_Fatal, 'Error allocating m%FlowField', ErrStat, ErrMsg, RoutineName )
       return
    end if
-
-   ! Initialize flow field with point type
-   OpFm%m%FlowField = FlowFieldType(FieldType=Point_FieldType)
-
+
    ! Initialize flowfield points type
+   OpFm%m%FlowField%FieldType = Point_FieldType
    Points_InitInput%NumWindPoints = OpFM%p%nNodesVel
    call IfW_Points_Init(Points_InitInput, OpFm%m%FlowField%Points, ErrStat2, ErrMsg2); if (Failed()) return