anchor.diff:        !--------------------
         ! 3. CALL F_Increment         
            
  -   DO i_turb = 1,farm%p%NumTurbines
  -      
  -      call FWrap_Increment( t, n, farm%FWrap(i_turb)%u, farm%FWrap(i_turb)%p, farm%FWrap(i_turb)%x, farm%FWrap(i_turb)%xd, farm%FWrap(i_turb)%z, &
  -                     farm%FWrap(i_turb)%OtherSt, farm%FWrap(i_turb)%y, farm%FWrap(i_turb)%m, ErrStat2, ErrMsg2 )         
  -         call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'T'//trim(num2lstr(i_turb))//':'//RoutineName)
  +   DO nt = 1,farm%p%NumTurbines
  +      
  +      call FWrap_Increment( t, n, farm%FWrap(nt)%u, farm%FWrap(nt)%p, farm%FWrap(nt)%x, farm%FWrap(nt)%xd, farm%FWrap(nt)%z, &
  +                     farm%FWrap(nt)%OtherSt, farm%FWrap(nt)%y, farm%FWrap(nt)%m, ErrStat2, ErrMsg2 )         
  +         call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'T'//trim(num2lstr(nt))//':'//RoutineName)
                  
      END DO
      if (ErrStat >= AbortErrLev) return
  
positive.code:       !--------------------
        ! 1. CALL WD_US         
     
     DO i_turb = 1,farm%p%NumTurbines
        
        call WD_UpdateStates( t, n, farm%WD(i_turb)%u, farm%WD(i_turb)%p, farm%WD(i_turb)%x, farm%WD(i_turb)%xd, farm%WD(i_turb)%z, &
                       farm%WD(i_turb)%OtherSt, farm%WD(i_turb)%m, ErrStat2, ErrMsg2 )         
           call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'T'//trim(num2lstr(i_turb))//':'//RoutineName)
                 
     END DO
     if (ErrStat >= AbortErrLev) return
  
negative.code:          ! Define the output channel specifying the current simulation time:
        farm%m%AllOuts(  Time) = REAL( t, ReKi )
  
        do nt = 1, farm%p%NumTurbines
           
           !.......................................................................................
           ! Super controller Outputs
  