subroutine wallo_use (iwallo, itrn, iuse) use water_allocation_module use hydrograph_module use constituent_mass_module implicit none integer, intent (in):: iwallo !water allocation object number integer, intent (in) :: itrn !water transfer object number integer, intent (in) :: iuse !water use number integer :: iom !number of organic-mineral concentrations of water use !! treating water to wtp or use concentrations iom = wuse(iuse)%iorg_min outflo_om = wuse_om_efflu(iom) !! treated outflow is a fraction of withdrawal outflo_om%flo = outflo_om%flo * wal_omd(iwallo)%trn(itrn)%h_tot%flo !! convert concentration to mass call hyd_convert_conc_to_mass (outflo_om) wuse_om_out(iuse) = outflo_om !! amount that is added wal_use_omd(iuse) = wuse_om_out(iuse) - wal_omd(iwallo)%trn(itrn)%h_tot !! constituents effluent - convert concentration to mass if (cs_db%num_tot > 0) then call hydcsout_conc_mass (outflo_om%flo, wuse_cs_efflu(iuse), outflo_cs) end if outflo_om = hz return end subroutine wallo_use