anchor.diff:           !.......................................................................................
   
               ! Orientation of rotor centerline, normal to disk
  -         farm%m%AllOuts(RtAxsXT(i_turb)) = farm%FWrap(i_turb)%y%xHat_Disk(1)
  -         farm%m%AllOuts(RtAxsYT(i_turb)) = farm%FWrap(i_turb)%y%xHat_Disk(2)
  -         farm%m%AllOuts(RtAxsZT(i_turb)) = farm%FWrap(i_turb)%y%xHat_Disk(3)
  +         farm%m%AllOuts(RtAxsXT(nt)) = farm%FWrap(nt)%y%xHat_Disk(1)
  +         farm%m%AllOuts(RtAxsYT(nt)) = farm%FWrap(nt)%y%xHat_Disk(2)
  +         farm%m%AllOuts(RtAxsZT(nt)) = farm%FWrap(nt)%y%xHat_Disk(3)
            
               ! Center position of hub, m
  -         farm%m%AllOuts(RtPosXT(i_turb)) = farm%FWrap(i_turb)%y%p_hub(1)
  -         farm%m%AllOuts(RtPosYT(i_turb)) = farm%FWrap(i_turb)%y%p_hub(2)
  -         farm%m%AllOuts(RtPosZT(i_turb)) = farm%FWrap(i_turb)%y%p_hub(3)
  +         farm%m%AllOuts(RtPosXT(nt)) = farm%FWrap(nt)%y%p_hub(1)
  +         farm%m%AllOuts(RtPosYT(nt)) = farm%FWrap(nt)%y%p_hub(2)
  +         farm%m%AllOuts(RtPosZT(nt)) = farm%FWrap(nt)%y%p_hub(3)
            
               ! Rotor diameter, m
  -         farm%m%AllOuts(RtDiamT(i_turb)) = farm%FWrap(i_turb)%y%D_rotor
  +         farm%m%AllOuts(RtDiamT(nt)) = farm%FWrap(nt)%y%D_rotor
            
               ! Nacelle-yaw error at the wake planes, deg 
  -         farm%m%AllOuts(YawErrT(i_turb)) = farm%FWrap(i_turb)%y%YawErr*R2D
  +         farm%m%AllOuts(YawErrT(nt)) = farm%FWrap(nt)%y%YawErr*R2D
            
               ! Ambient turbulence intensity of the wind at the rotor disk, percent
  -            ! TODO: Is this really in percent form? GJH 3/21/2017
  -         farm%m%AllOuts(TIAmbT(i_turb))  = farm%AWAE%y%TI_amb(i_turb)*100.0_ReKi
  +         farm%m%AllOuts(TIAmbT(nt))  = farm%AWAE%y%TI_amb(nt)*100.0_ReKi 
            
               ! Rotor-disk-averaged ambient wind speed (normal to disk, not including structural motion, local induction or wakes from upstream turbines), m/s
  -         farm%m%AllOuts(RtVAmbT(i_turb)) = farm%AWAE%y%Vx_wind_disk(i_turb)
  +         farm%m%AllOuts(RtVAmbT(nt)) = farm%AWAE%y%Vx_wind_disk(nt)
            
               ! Rotor-disk-averaged relative wind speed (normal to disk, including structural motion and wakes from upstream turbines, but not including local induction), m/s
  -         farm%m%AllOuts(RtVRelT(i_turb)) = farm%FWrap(i_turb)%y%DiskAvg_Vx_Rel
  +         farm%m%AllOuts(RtVRelT(nt)) = farm%FWrap(nt)%y%DiskAvg_Vx_Rel
            
               ! Azimuthally averaged thrust force coefficient (normal to disk), distributed radially, -
            do ir = 1, farm%p%NOutRadii
  -            farm%m%AllOuts(CtTN(ir, i_turb)) = farm%FWrap(i_turb)%y%AzimAvg_Ct(farm%p%OutRadii(ir)+1)  ! y%AzimAvg_Ct is a 1-based array but the user specifies 0-based node indices, so we need to add 1
  +            farm%m%AllOuts(CtTN(ir, nt)) = farm%FWrap(nt)%y%AzimAvg_Ct(farm%p%OutRadii(ir)+1)  ! y%AzimAvg_Ct is a 1-based array but the user specifies 0-based node indices, so we need to add 1
            end do
            
            !.......................................................................................
  
positive.code:    INTEGER(IntKi),           INTENT(  OUT) :: ErrStat                         !< Error status
     CHARACTER(*),             INTENT(  OUT) :: ErrMsg                          !< Error message
  
     INTEGER(IntKi)                          :: i_turb                    
     INTEGER(IntKi)                          :: ErrStat2                        ! Temporary Error status
     CHARACTER(ErrMsgLen)                    :: ErrMsg2                         ! Temporary Error message
     CHARACTER(*),   PARAMETER               :: RoutineName = 'FARM_UpdateStates'
  
negative.code:       !--------------------
        ! 1.  Transfer y_F to u_SC     
     
     !DO nt = 1,farm%p%NumTurbines   
     !   = farm%FWrap(nt)%y%ToSC_Turbine   
     !END DO
     
        !--------------------
  