wallo_withdraw Subroutine

subroutine wallo_withdraw(ipod, ipou)

Uses

  • proc~~wallo_withdraw~~UsesGraph proc~wallo_withdraw wallo_withdraw module~aquifer_module aquifer_module proc~wallo_withdraw->module~aquifer_module module~constituent_mass_module constituent_mass_module proc~wallo_withdraw->module~constituent_mass_module module~hydrograph_module hydrograph_module proc~wallo_withdraw->module~hydrograph_module module~recall_module recall_module proc~wallo_withdraw->module~recall_module module~reservoir_module reservoir_module proc~wallo_withdraw->module~reservoir_module module~time_module time_module proc~wallo_withdraw->module~time_module module~water_allocation_module water_allocation_module proc~wallo_withdraw->module~water_allocation_module module~hydrograph_module->module~time_module module~basin_module basin_module module~hydrograph_module->module~basin_module

set the duty or compensation for the POD - if compensation, then duty is umet duty for the POU zero out the withdrawal for the POD POD number from delivery object, pou number from loop in wallo_control check minimum storage/flow limits and withdraw water from each POD unlimited source - unlimited water, no constituents, no minimum storage/flow limits outside the basin source check if withdrawal takes storage below the minimum convert concentration to mass check if withdrawal takes storage below the minimum divert flowing water from channel source cant compensate for channel flow don't divert when flow is below the minimum - cha_min canal source check if withdrawal takes storage below the minimum reservoir source check if withdrawal takes storage below the minimum aquifer source only have flow, no3, and minp(solp) for aquifer gwflow source add to total flow delivered and om withdrawal for the POD reset annual maximum withdrawals if decision table isn't used POD is finished - sum total withdrawal for the POU add to total flow delivered and om withdrawal for the POU add constituents withdrawn to total withdrawal for the POU

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ipod
integer, intent(in) :: ipou

Calls

proc~~wallo_withdraw~~CallsGraph proc~wallo_withdraw wallo_withdraw proc~hyd_convert_conc_to_mass hyd_convert_conc_to_mass proc~wallo_withdraw->proc~hyd_convert_conc_to_mass