anchor.diff:        ! 4. End each instance of FAST (each instance of FAST can be done in parallel, too)   
      if (allocated(farm%FWrap)) then
         
  -      DO i_turb = 1,farm%p%NumTurbines
  -         if (farm%FWrap(i_turb)%IsInitialized) then
  -            CALL FWrap_End( 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
  +         if (farm%FWrap(nt)%IsInitialized) then
  +            CALL FWrap_End( 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 if
         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_InitialCO'
  
negative.code:       !--------------------
        ! 1. call WD_CO and transfer y_WD to u_AWAE        
     
     DO nt = 1,farm%p%NumTurbines
        
        call WD_CalcOutput( t, farm%WD(nt)%u, farm%WD(nt)%p, farm%WD(nt)%x, farm%WD(nt)%xd, farm%WD(nt)%z, &
                       farm%WD(nt)%OtherSt, farm%WD(nt)%y, farm%WD(nt)%m, ErrStat2, ErrMsg2 )         
           call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'T'//trim(num2lstr(nt))//':'//RoutineName)
                 
     END DO
     if (ErrStat >= AbortErrLev) return
  