subroutine rls_routeaqu (iob) !! ~ ~ ~ PURPOSE ~ ~ ~ !! ~ ~ ~ INCOMING VARIABLES ~ ~ ~ !! name |units |definition !! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ !! ~ ~ ~ OUTGOING VARIABLES ~ ~ ~ !! name |units |definition !! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ !! use hru_module, only : ihru use soil_module use hydrograph_module use organic_mineral_mass_module implicit none integer, intent (in) :: iob ! |object number integer :: j = 0 ! |hru number integer :: lyr = 0 ! |tile soil layer j = ihru !! add aquifer inflow and nitrate to the bottom soil layer !! if exceeds saturation, it will be redistributed in swr_satexcess lyr = soil(j)%nly soil(j)%phys(lyr)%st = soil(j)%phys(lyr)%st + ob(iob)%hin_til%flo soil1(j)%mn(lyr)%no3 = soil1(j)%mn(lyr)%no3 + ob(iob)%hin_til%no3 return end subroutine rls_routeaqu