evapotranspiration_allocate Subroutine

  subroutine evapotranspiration_allocate(mb, meap)
    integer, intent(in) :: mb, meap
    allocate(canstor(mb, meap))
    allocate(ecal(mb))
    allocate(humi(mb))
    allocate(lat(mb)) ! subbasins latitude from stat - outdat.csv
    allocate(ra(mb))
    allocate(s1(mb, meap))
    allocate(s2(mb, meap))
    allocate(salb(mb))
    allocate(thc(mb))
    allocate(tmn(mb))
    allocate(tv(mb, meap))
    allocate(ylc(mb))
    allocate(yls(mb))
    canstor = 0.
    ecal = ecal0
    humi = 0.
    lat = 0.
    ra = 0.
    s1 = 0.
    s2 = 0.
    salb = 0.15
    thc = thc0
    tmn = 0.
    tv = 0.
    ylc = 0.
    yls = 0.
  end subroutine evapotranspiration_allocate