anchor.diff:     
      integer(intKi)                          :: tIndx
      integer(intKi)                          :: k                      ! loop counter for blades
  -   integer(intKi)                          :: ErrStat2
  -   character(ErrMsgLen)                    :: ErrMsg2
      character(*), parameter                 :: RoutineName = 'SetInputsForFVW'
   
      do tIndx=1,size(u)
  
positive.code:    
     
  END SUBROUTINE TwrInfl 
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine returns the tower constants necessary to compute the tower influence. 
  !! if u%TowerMotion does not have any nodes there will be serious problems. I assume that has been checked earlier.
  
negative.code:       enddo
        if (ALLOCATED(m%FVW_u(tIndx)%V_wind)) then
           m%FVW_u(tIndx)%V_wind   = u(tIndx)%InflowWakeVel
           ! Applying tower shadow to V_wind based on r_wind positions
           if (p%TwrPotent /= TwrPotent_none .or. p%TwrShadow) then
              call TwrInflArray( p, u(tIndx), m, m%FVW%r_wind, m%FVW_u(tIndx)%V_wind, ErrStat, ErrMsg )
              if (ErrStat >= AbortErrLev) return
           end if
        endif
     enddo
  end subroutine SetInputsForFVW
  