diff --git a/modules/aerodyn/src/AeroDyn.f90 b/modules/aerodyn/src/AeroDyn.f90 index 603a15c989..12c50e19f7 100644 --- 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 index 48ce867a6b..1438cc817c 100644 --- 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)