anchor.diff:  !!   -  In parallel:
   !!      1.  CALL AWAE_Init
   !!      2.  CALL_SC_Init
  -!!   -  In parallel:
  -!!      1.  Transfer y_AWAE_Init to u_WD_Init and CALL WD_Init 
  -!!      2.  Transfer y_AWAE_Init to u_F_Init and CALL F_Init
  +!!      3.  CALL WD_Init
  +!!   -  Transfer y_AWAE_Init to u_F_Init and CALL F_Init
   !!   -  Open Output File
   !!   -  n=0
   !!   -  t=0
  
positive.code:          RETURN        
        end if      
              
        ! NWindVel - Number of points for wind output (-) [0 to 99]:
     CALL ReadVar( UnIn, InputFile, p%NWindVel, "NWindVel", "Number of points for wind output (-) [0 to 99]", ErrStat2, ErrMsg2, UnEc)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)
        if ( ErrStat >= AbortErrLev ) then
           call cleanup()
  
negative.code:    
  END SUBROUTINE Transfer_FAST_to_WD
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE Transfer_AWAE_to_WD(farm)
     type(All_FastFarm_Data),  INTENT(INOUT) :: farm                            !< FAST.Farm data  
  
     integer(intKi)  :: i_turb
     
     DO i_turb = 1,farm%p%NumTurbines
        farm%WD(i_turb)%u%V_plane      = farm%AWAE%y%V_plane(:,:,i_turb)   ! Advection, deflection, and meandering velocity of wake planes, m/s
        farm%WD(i_turb)%u%Vx_wind_disk = farm%AWAE%y%Vx_wind_disk(i_turb)  ! Rotor-disk-averaged ambient wind speed, normal to planes, m/s
        farm%WD(i_turb)%u%TI_amb       = farm%AWAE%y%TI_amb(i_turb)        ! Ambient turbulence intensity of wind at rotor disk
     END DO
     
  END SUBROUTINE Transfer_AWAE_to_WD
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE Transfer_AWAE_to_FAST(farm)
     type(All_FastFarm_Data),  INTENT(INOUT) :: farm                            !< FAST.Farm data  
  
     integer(intKi)  :: i_turb
     
     DO i_turb = 1,farm%p%NumTurbines
           ! allocated in FAST's IfW initialization as 3,x,y,z,t
        farm%FWrap(i_turb)%u%Vdist_High = farm%AWAE%y%Vdist_High(:,:,:,:,:,i_turb)
     END DO
     
  END SUBROUTINE Transfer_AWAE_to_FAST
  !----------------------------------------------------------------------------------------------------------------------------------
  SUBROUTINE Transfer_WD_to_AWAE(farm)
     type(All_FastFarm_Data),  INTENT(INOUT) :: farm                            !< FAST.Farm data  
  
     integer(intKi)  :: i_turb
     
     DO i_turb = 1,farm%p%NumTurbines   
        farm%AWAE%u%xhat_plane(:,:,i_turb) = farm%WD(i_turb)%y%xhat_plane     ! Orientations of wake planes, normal to wake planes, for each turbine
        farm%AWAE%u%p_plane(:,:,i_turb)    = farm%WD(i_turb)%y%p_plane        ! Center positions of wake planes for each turbine
        farm%AWAE%u%Vx_wake(:,:,i_turb)    = farm%WD(i_turb)%y%Vx_wake        ! Axial wake velocity deficit at wake planes, distributed radially, for each turbine
        farm%AWAE%u%Vr_wake(:,:,i_turb)    = farm%WD(i_turb)%y%Vr_wake        ! Radial wake velocity deficit at wake planes, distributed radially, for each turbine
        farm%AWAE%u%D_wake(:,i_turb)       = farm%WD(i_turb)%y%D_wake         ! Wake diameters at wake planes for each turbine      
     END DO
     
  END SUBROUTINE Transfer_WD_to_AWAE
  !----------------------------------------------------------------------------------------------------------------------------------
  END MODULE FAST_Farm_Subs
  !**********************************************************************************************************************************
  