few stylistic changes

OpenFAST · Nov 22, 2023 · 139a8cb · 139a8cb
1 parent 876f5cf
commit 139a8cb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90
@@ -1306,9 +1306,9 @@ subroutine SetParameters( InitInp, InputFileData, RotData, p, p_AD, ErrStat, Err
    p%Buoyancy         = InputFileData%Buoyancy
 
    p%NacelleDrag      = InputFileData%NacelleDrag
-   p%NacArea      = RotData%NacArea
-   p%NacCd        = RotData%NacCd
-   p%NacDragAC    = RotData%NacDragAC
+   p%NacArea          = RotData%NacArea
+   p%NacCd            = RotData%NacCd
+   p%NacDragAC        = RotData%NacDragAC
 
    if (InitInp%Linearize .and. InputFileData%WakeMod == WakeMod_BEMT) then
       p%FrozenWake = InputFileData%FrozenWake
@@ -7462,8 +7462,7 @@ subroutine AD_SetExternalWindPositions(u_AD, o_AD, PosXYZ, node, errStat, errMsg
    end if
 end subroutine AD_SetExternalWindPositions
 !-------------------------------------------------------------------------------------------------------
-
-! Temp anyonimous function
+!> This routine calculates nacelle drag loads on a turbine.
 SUBROUTINE computeNacelleDrag( u, p, m, y, ErrStat, ErrMsg )
 
    TYPE(RotInputType)               , INTENT(IN   ) :: u                !< AD inputs - used for mesh node positions

diff --git a/modules/aerodyn/src/AeroDyn_IO.f90 b/modules/aerodyn/src/AeroDyn_IO.f90
@@ -222,12 +222,12 @@ subroutine Calc_WriteOutput_AD()
          m%AllOuts( NcVUndy ) = tmp(2)
          m%AllOuts( NcVUndz ) = tmp(3)
 
-         tmp = m%NacDragF !matmul( u%NacelleMotion%Orientation(:,:,1) , m%NacDragF )
+         tmp = m%NacDragF 
          m%AllOuts( NcFdx ) = tmp(1)
          m%AllOuts( NcFdy ) = tmp(2)
          m%AllOuts( NcFdz ) = tmp(3)
 
-         tmp = m%NacDragM !matmul( u%NacelleMotion%Orientation(:,:,1) , m%NacDragM )
+         tmp = m%NacDragM 
          m%AllOuts( NcMdx ) = tmp(1)
          m%AllOuts( NcMdy ) = tmp(2)
          m%AllOuts( NcMdz ) = tmp(3)