management_allocate_transfer Subroutine

  subroutine management_allocate_transfer(n)
    ! number of water users
    integer, intent(in) :: n
    allocate(wam_UName(n))
    wam_UName = ''
    allocate(wam_firstyr(n))
    wam_firstyr = 0
    allocate(wam_lastyr(n))
    wam_lastyr = 0
    allocate(wam_ts(n))
    wam_ts = 0
    allocate(wam_opt(n))
    wam_opt = 0
    allocate(wam_source(n))
    wam_source = 0
    allocate(wam_destination(n))
    wam_destination = 0
    allocate(wam_eff(n))
    wam_eff = 0.

    ! irrigation variables
    allocate(wam_irr_opt(n))
    wam_irr_opt = 0
    allocate(wam_irr_practice(n))
    wam_irr_practice = 0
    allocate(wam_irr_deficit_fac(n))
    wam_irr_deficit_fac = 0.
    allocate(wam_day_irr_start(n))
    wam_day_irr_start = 0
    allocate(wam_day_irr_end(n))
    wam_day_irr_end = 0
    allocate(wam_w_source(n))
    wam_w_source = 0


  end subroutine management_allocate_transfer