hype_wbout.f90 File Reference

Modules
module	hype_waterbalance

Procedures
subroutine	hype_waterbalance::initiate_waterbalance_output (n)
subroutine	hype_waterbalance::zero_waterbalance_flows ()
subroutine	hype_waterbalance::zero_recharge_waterbalance ()
subroutine	hype_waterbalance::set_irrigation_waterbalance_local (i, n, irrigationflows, irrevap)
subroutine	hype_waterbalance::set_waterbalance_regional_flows (m, n, horizontalflows2, regionalirrflows)
subroutine	hype_waterbalance::set_landclass_waterbalance_flows (i, snowfall, infiltrationflows, evapflows, verticalflows, horizontalflows, irrappl, aadj, oldsnowpart)
subroutine	hype_waterbalance::set_runoff_waterbalance_flows (i, j, recievinglayer, infiltrationflows, runofflows, a)
subroutine	hype_waterbalance::set_mainriver_floodplain_runoff_waterbalance_flows (i, infiltrationflows, evapflows, runofflows, floodplainflows, aadj)
subroutine	hype_waterbalance::set_olake_floodplain_runoff_waterbalance_flows (i, infiltrationflows, evapflows, runofflows, floodplainflows, aadj)
subroutine	hype_waterbalance::set_glacier_waterbalance_flows (i, glacvol, glacierflows, infiltrationflows, evapflows, a, oldsnowpart)
subroutine	hype_waterbalance::recalculate_waterbalance_flows_unit (i, area)
subroutine	hype_waterbalance::recalculate_glacier_waterbalance_flows_unit (i, area)
subroutine	hype_waterbalance::recalculate_floodplain_waterbalance_flows_unit (i, area)
subroutine	hype_waterbalance::prepare_waterbalance_files (dir, n, na, subid)
subroutine	hype_waterbalance::print_waterbalance_timestep (n, na, date)
subroutine	hype_waterbalance::print_initial_waterbalance_stores (n, na)
subroutine	hype_waterbalance::close_waterbalance_files (na)

Variables
Water balance flow variable indices
integer, parameter	hype_waterbalance::w_sfallsnow = 1
integer, parameter	hype_waterbalance::w_smeltsl1 = 2
integer, parameter	hype_waterbalance::w_smeltsr = 3
integer, parameter	hype_waterbalance::w_smeltmp1 = 4
integer, parameter	hype_waterbalance::w_smeltmp2 = 5
integer, parameter	hype_waterbalance::w_smeltmp3 = 6
integer, parameter	hype_waterbalance::w_stoice = 7
integer, parameter	hype_waterbalance::w_precglac = 8
integer, parameter	hype_waterbalance::w_gmeltsl1 = 9
integer, parameter	hype_waterbalance::w_gmeltsr = 10
integer, parameter	hype_waterbalance::w_gmeltmp1 = 11
integer, parameter	hype_waterbalance::w_gmeltmp2 = 12
integer, parameter	hype_waterbalance::w_gmeltmp3 = 13
integer, parameter	hype_waterbalance::w_infrain = 14
integer, parameter	hype_waterbalance::w_rainsr = 55
integer, parameter	hype_waterbalance::w_rainmp1 = 15
integer, parameter	hype_waterbalance::w_rainmp2 = 16
integer, parameter	hype_waterbalance::w_rainmp3 = 17
integer, parameter	hype_waterbalance::w_evap1 = 18
integer, parameter	hype_waterbalance::w_evap2 = 19
integer, parameter	hype_waterbalance::w_surfrf = 20
integer, parameter	hype_waterbalance::w_tile1 = 21
integer, parameter	hype_waterbalance::w_tile2 = 22
integer, parameter	hype_waterbalance::w_tile3 = 23
integer, parameter	hype_waterbalance::w_gwrunf1 = 24
integer, parameter	hype_waterbalance::w_gwrunf2 = 25
integer, parameter	hype_waterbalance::w_gwrunf3 = 26
integer, parameter	hype_waterbalance::w_perc1 = 27
integer, parameter	hype_waterbalance::w_perc2 = 28
integer, parameter	hype_waterbalance::w_upwell1 = 29
integer, parameter	hype_waterbalance::w_upwell2 = 30
integer, parameter	hype_waterbalance::w_rural1 = 31
integer, parameter	hype_waterbalance::w_rural2 = 32
integer, parameter	hype_waterbalance::w_rural3 = 33
integer, parameter	hype_waterbalance::w_rgrwto1 = 34
integer, parameter	hype_waterbalance::w_rgrwto2 = 35
integer, parameter	hype_waterbalance::w_rgrwto3 = 36
integer, parameter	hype_waterbalance::w_piriver = 37
integer, parameter	hype_waterbalance::w_pilake = 38
integer, parameter	hype_waterbalance::w_pmriver = 39
integer, parameter	hype_waterbalance::w_polake = 40
integer, parameter	hype_waterbalance::w_eiriver = 41
integer, parameter	hype_waterbalance::w_eilake = 42
integer, parameter	hype_waterbalance::w_emriver = 43
integer, parameter	hype_waterbalance::w_eolake = 44
integer, parameter	hype_waterbalance::w_irtoil = 45
integer, parameter	hype_waterbalance::w_irtomr = 46
integer, parameter	hype_waterbalance::w_iltomr = 47
integer, parameter	hype_waterbalance::w_mrtool = 48
integer, parameter	hype_waterbalance::w_oltomb = 49
integer, parameter	hype_waterbalance::w_oltob = 50
integer, parameter	hype_waterbalance::w_rural4 = 51
integer, parameter	hype_waterbalance::w_pstomr = 52
integer, parameter	hype_waterbalance::w_abstmr = 53
integer, parameter	hype_waterbalance::w_abstol = 54
integer, parameter	hype_waterbalance::w_abstaq = 87
integer, parameter	hype_waterbalance::w_rgrwtool = 56
integer, parameter	hype_waterbalance::w_rgrwof1 = 57
integer, parameter	hype_waterbalance::w_rgrwof2 = 58
integer, parameter	hype_waterbalance::w_rgrwof3 = 59
integer, parameter	hype_waterbalance::w_rgrwtoos = 60
integer, parameter	hype_waterbalance::w_rgrwfromos = 100
integer, parameter	hype_waterbalance::w_rgrwofmr = 61
integer, parameter	hype_waterbalance::w_rgrwtomr = 62
integer, parameter	hype_waterbalance::w_evap3 = 63
integer, parameter	hype_waterbalance::w_evap4 = 64
integer, parameter	hype_waterbalance::w_wtrtomr = 65
integer, parameter	hype_waterbalance::w_wtrofol = 66
integer, parameter	hype_waterbalance::w_oltombol = 67
integer, parameter	hype_waterbalance::w_oltobol = 68
integer, parameter	hype_waterbalance::w_mrtoow = 69
integer, parameter	hype_waterbalance::w_owtomb = 70
integer, parameter	hype_waterbalance::w_owtob = 71
integer, parameter	hype_waterbalance::w_iwtoir = 72
integer, parameter	hype_waterbalance::w_rainsrtoiw = 73
integer, parameter	hype_waterbalance::w_smeltsrtoiw = 74
integer, parameter	hype_waterbalance::w_gmeltsrtoiw = 75
integer, parameter	hype_waterbalance::w_surfrftoiw = 76
integer, parameter	hype_waterbalance::w_tile1toiw = 77
integer, parameter	hype_waterbalance::w_tile2toiw = 78
integer, parameter	hype_waterbalance::w_tile3toiw = 79
integer, parameter	hype_waterbalance::w_gwrunf1toiw = 80
integer, parameter	hype_waterbalance::w_gwrunf2toiw = 81
integer, parameter	hype_waterbalance::w_gwrunf3toiw = 82
integer, parameter	hype_waterbalance::w_preciwet = 83
integer, parameter	hype_waterbalance::w_precowet = 84
integer, parameter	hype_waterbalance::w_evapiwet = 85
integer, parameter	hype_waterbalance::w_evapowet = 86
integer, parameter	hype_waterbalance::w_rechameltr1 = 88
integer, parameter	hype_waterbalance::w_rechameltr2 = 89
integer, parameter	hype_waterbalance::w_rechameltr3 = 90
integer, parameter	hype_waterbalance::w_recharainr1 = 91
integer, parameter	hype_waterbalance::w_recharainr2 = 92
integer, parameter	hype_waterbalance::w_recharainr3 = 93
integer, parameter	hype_waterbalance::w_recharf1r2 = 94
integer, parameter	hype_waterbalance::w_recharf1r3 = 95
integer, parameter	hype_waterbalance::w_recharf2r1 = 96
integer, parameter	hype_waterbalance::w_recharf2r3 = 97
integer, parameter	hype_waterbalance::w_recharf3r1 = 98
integer, parameter	hype_waterbalance::w_recharf3r2 = 99
integer, parameter, private	hype_waterbalance::num_wbflows = 100
Water balance store variable indices
integer, parameter	hype_waterbalance::w_snow = 1
integer, parameter	hype_waterbalance::w_glacier = 2
integer, parameter	hype_waterbalance::w_soil1 = 3
integer, parameter	hype_waterbalance::w_soil2 = 4
integer, parameter	hype_waterbalance::w_soil3 = 5
integer, parameter	hype_waterbalance::w_iwet = 6
integer, parameter	hype_waterbalance::w_iriver = 7
integer, parameter	hype_waterbalance::w_ilake = 8
integer, parameter	hype_waterbalance::w_mriver = 9
integer, parameter	hype_waterbalance::w_olake = 10
integer, parameter	hype_waterbalance::w_owet = 11
integer, parameter	hype_waterbalance::w_irrcanal = 12
integer, parameter	hype_waterbalance::w_aquifer = 13
integer, parameter	hype_waterbalance::w_riverplain = 14
integer, parameter	hype_waterbalance::w_lakeplain = 15
integer, parameter	hype_waterbalance::w_wtcanal = 16
integer, parameter, private	hype_waterbalance::num_wbstores = 16
Water balance selected subbasin flow variable indices (irrigation)
integer, parameter	hype_waterbalance::w_apply1 = 1
integer, parameter	hype_waterbalance::w_wdfromil = 2
integer, parameter	hype_waterbalance::w_wdfromdg = 3
integer, parameter	hype_waterbalance::w_wdfromol = 4
integer, parameter	hype_waterbalance::w_wdfrommr = 5
integer, parameter	hype_waterbalance::w_evapirrc = 6
integer, parameter	hype_waterbalance::w_wdregol = 7
integer, parameter	hype_waterbalance::w_wdregmr = 8
integer, parameter	hype_waterbalance::w_evapregol = 9
integer, parameter	hype_waterbalance::w_evapregmr = 10
integer, parameter	hype_waterbalance::w_wdoutside = 11
integer, parameter	hype_waterbalance::w_rgrwtoir = 12
integer, parameter, private	hype_waterbalance::num_wbirrflows = 12
Water balance selected subbasin flow variable indices (floodplain)
integer, parameter	hype_waterbalance::w_pmrfp = 1
integer, parameter	hype_waterbalance::w_polfp = 2
integer, parameter	hype_waterbalance::w_emrfp = 3
integer, parameter	hype_waterbalance::w_eolfp = 4
integer, parameter	hype_waterbalance::w_infmrfp = 5
integer, parameter	hype_waterbalance::w_infolfp = 6
integer, parameter	hype_waterbalance::w_smtsrmrfp = 7
integer, parameter	hype_waterbalance::w_smtsrolfp = 8
integer, parameter	hype_waterbalance::w_rtsrmrfp = 9
integer, parameter	hype_waterbalance::w_rtsrolfp = 10
integer, parameter	hype_waterbalance::w_srftmrfp = 11
integer, parameter	hype_waterbalance::w_srftolfp = 12
integer, parameter	hype_waterbalance::w_grf1mrfp = 13
integer, parameter	hype_waterbalance::w_grf2mrfp = 14
integer, parameter	hype_waterbalance::w_grf3mrfp = 15
integer, parameter	hype_waterbalance::w_grf1olfp = 16
integer, parameter	hype_waterbalance::w_grf2olfp = 17
integer, parameter	hype_waterbalance::w_grf3olfp = 18
integer, parameter	hype_waterbalance::w_stomrfp = 19
integer, parameter	hype_waterbalance::w_stoolfp = 20
integer, parameter	hype_waterbalance::w_fptomr = 21
integer, parameter	hype_waterbalance::w_mrtofp = 22
integer, parameter	hype_waterbalance::w_fptool = 23
integer, parameter	hype_waterbalance::w_oltofp = 24
integer, parameter	hype_waterbalance::w_trf1mrfp = 25
integer, parameter	hype_waterbalance::w_trf2mrfp = 26
integer, parameter	hype_waterbalance::w_trf3mrfp = 27
integer, parameter	hype_waterbalance::w_trf1olfp = 28
integer, parameter	hype_waterbalance::w_trf2olfp = 29
integer, parameter	hype_waterbalance::w_trf3olfp = 30
integer, parameter	hype_waterbalance::w_rgrwofmrfp = 31
integer, parameter, private	hype_waterbalance::num_wbfpflows = 31
Variables for waterbalance output
integer, dimension(num_wbstores), private	hype_waterbalance::funit_wbstores
integer, dimension(num_wbflows), private	hype_waterbalance::funit_wbflows
integer, dimension(num_wbirrflows), private	hype_waterbalance::funit_wbirrflows
integer, dimension(num_wbfpflows), private	hype_waterbalance::funit_wbfpflows
character(len=20), dimension(num_wbstores), private	hype_waterbalance::fname_wbstores = (/ 'WBs_snow.txt ', 'WBs_glacier.txt ','WBs_soillayer1.txt', 'WBs_soillayer2.txt','WBs_soillayer3.txt', 'WBs_iwet.txt ','WBs_lstream.txt ', 'WBs_ilake.txt ','WBs_mriver.txt ', 'WBs_olake.txt ','WBs_owet.txt ', 'WBs_irrcanal.txt ','WBs_aquifer.txt ', 'WBs_riverplain.txt','WBs_lakeplain.txt ', 'WBs_wtcanal.txt '/)
character(len=50), dimension(num_wbflows), private	hype_waterbalance::fname_wbflows = (/ 'WBf_snowfall__snow.txt ', 'WBf_snowmelt_snow_soillayer1.txt ', 'WBf_snowmelt_surfacerunoff_snow_lstream.txt ', 'WBf_snowmelt_via_macropore_snow_soillayer1.txt ', 'WBf_snowmelt_via_macropore_snow_soillayer2.txt ', 'WBf_snowmelt_via_macropore_snow_soillayer3.txt ', 'WBf_growingice_snow_glacier.txt ', 'WBf_precipitation__glacier.txt ', 'WBf_melt_glacier_soillayer1.txt ', 'WBf_melt_surfacerunoff_glacier_lstream.txt ', 'WBf_melt_via_macropore_glacier_sollayer1.txt ', 'WBf_melt_via_macropore_glacier_sollayer2.txt ', 'WBf_melt_via_macropore_glacier_sollayer3.txt ', 'WBf_rain__soillayer1.txt ', 'WBf_rain_via_macropore__soillayer1.txt ', 'WBf_rain_via_macropore__soillayer2.txt ', 'WBf_rain_via_macropore__soillayer3.txt ', 'WBf_evaporation_soillayer1_.txt ', 'WBf_evaporation_soillayer2_.txt ', 'WBf_satsurfaceflow_soillayer1_lstream.txt ', 'WBf_tilerunoff_soillayer1_lstream.txt ', 'WBf_tilerunoff_soillayer2_lstream.txt ', 'WBf_tilerunoff_soillayer3_lstream.txt ', 'WBf_soilrunoff_soillayer1_lstream.txt ', 'WBf_soilrunoff_soillayer2_lstream.txt ', 'WBf_soilrunoff_soillayer3_lstream.txt ', 'WBf_percolation_soillayer1_soillayer2.txt ', 'WBf_percolation_soillayer2_soillayer3.txt ', 'WBf_upwell_soillayer2_soillayer1.txt ', 'WBf_upwell_soillayer3_soillayer2.txt ', 'WBf_ruralflow__soillayer1.txt ', 'WBf_ruralflow__soillayer2.txt ', 'WBf_ruralflow__soillayer3.txt ', 'WBf_regionalgroundwater_reservoir_soillayer1.txt', 'WBf_regionalgroundwater_reservoir_soillayer2.txt', 'WBf_regionalgroundwater_reservoir_soillayer3.txt', 'WBf_precipitation__lstream.txt ', 'WBf_precipitation__ilake.txt ', 'WBf_precipitation__mriver.txt ', 'WBf_precipitation__olake.txt ', 'WBf_evaporation_lstream_.txt ', 'WBf_evaporation_ilake_.txt ', 'WBf_evaporation_mriver_.txt ', 'WBf_evaporation_olake_.txt ', 'WBf_flow_lstream_ilake.txt ', 'WBf_flow_lstream_mriver.txt ', 'WBf_flow_ilake_mriver.txt ', 'WBf_flow_mriver_olake.txt ', 'WBf_flow_olake_mriver_maindownstream.txt ', 'WBf_flow_olake_mriver_branchdownstream.txt ', 'WBf_ruralflow__lstream.txt ', 'WBf_pointsource__mriver.txt ', 'WBf_abstraction_mriver_.txt ', 'WBf_abstraction_olake_.txt ', 'WBf_rain_surfacerunoff__lstream.txt ', 'WBf_regionalgroundwater_reservoir_olake.txt ', 'WBf_regionalgroundwater_soillayer1_reservoir.txt', 'WBf_regionalgroundwater_soillayer2_reservoir.txt', 'WBf_regionalgroundwater_soillayer3_reservoir.txt', 'WBf_regionalgroundwater_reservoir_.txt ', 'WBf_regionalgroundwater_mriver_reservoir.txt ', 'WBf_regionalgroundwater_reservoir_mriver.txt ', 'WBf_evaporation_snow_.txt ', 'WBf_evaporation_glacier_.txt ', 'WBf_watertransfer_wtcanal_mriver.txt ', 'WBf_watertransfer_olake_wtcanal.txt ', 'WBf_flow_olake_olake_maindownstream.txt ', 'WBf_flow_olake_olake_branchdownstream.txt ', 'WBf_flow_mriver_owet.txt ', 'WBf_flow_owet_mriver_maindownstream.txt ', 'WBf_flow_owet_mriver_branchdownstream.txt ', 'WBf_flow_iwet_lstream.txt ', 'WBf_rain_surfacerunoff__iwet.txt ', 'WBf_snowmelt_surfacerunoff_snow_iwet.txt ', 'WBf_melt_surfacerunoff_glacier_iwet.txt ', 'WBf_satsurfaceflow_soillayer1_iwet.txt ', 'WBf_tilerunoff_soillayer1_iwet.txt ', 'WBf_tilerunoff_soillayer2_iwet.txt ', 'WBf_tilerunoff_soillayer3_iwet.txt ', 'WBf_soilrunoff_soillayer1_iwet.txt ', 'WBf_soilrunoff_soillayer2_iwet.txt ', 'WBf_soilrunoff_soillayer3_iwet.txt ', 'WBf_precipitation__iwet.txt ', 'WBf_precipitation__owet.txt ', 'WBf_evaporation_iwet_.txt ', 'WBf_evaporation_owet_.txt ', 'WBf_abstraction_aquifer_.txt ', 'WBf_rechargearea_flow_snow_soillayer1.txt ', 'WBf_rechargearea_flow_snow_soillayer2.txt ', 'WBf_rechargearea_flow_snow_soillayer3.txt ', 'WBf_rechargearea_flow__soillayer1.txt ', 'WBf_rechargearea_flow__soillayer2.txt ', 'WBf_rechargearea_flow__soillayer3.txt ', 'WBf_rechargearea_flow_soillayer1_soillayer2.txt ', 'WBf_rechargearea_flow_soillayer1_soillayer3.txt ', 'WBf_rechargearea_flow_soillayer2_soillayer1.txt ', 'WBf_rechargearea_flow_soillayer2_soillayer3.txt ', 'WBf_rechargearea_flow_soillayer3_soillayer1.txt ', 'WBf_rechargearea_flow_soillayer3_soillayer2.txt ', 'WBf_regionalgroundwater__reservoir.txt '/)
character(len=50), dimension(num_wbirrflows), private	hype_waterbalance::fname_wbirrflows = (/ 'WBfs_apply_irrcanal_soillayer1.txt ', 'WBfs_local_withdraw_ilake_irrcanal.txt ', 'WBfs_local_withdraw_deepgrw_irrcanal.txt ', 'WBfs_local_withdraw_olake_irrcanal.txt ', 'WBfs_local_withdraw_mriver_irrcanal.txt ', 'WBfs_evaporation_irrcanal_.txt ', 'WBfs_regsrc_withdraw_olake_irrcanal.txt ', 'WBfs_regsrc_withdraw_mriver_irrcanal.txt ', 'WBfs_regsrc_evaporation_olake_.txt ', 'WBfs_regsrc_evaporation_mriver_.txt ', 'WBfs_unlimited_withdraw__irrcanal.txt ', 'WBfs_regionalgroundwater_reservoir_irrcanal.txt'/)
character(len=50), dimension(num_wbfpflows), private	hype_waterbalance::fname_wbfpflows = (/ 'WBff_precipitation__mriver_floodplain.txt ', 'WBff_precipitation__olake_floodplain.txt ', 'WBff_evaporation_mriver_floodplain_.txt ', 'WBff_evaporation_olake_floodplain_.txt ', 'WBff_infilt_mriver_floodplain_soillayer1.txt ', 'WBff_infilt_olake_floodplain_soillayer1.txt ', 'WBff_melt_surfrunoff_snow_mriver_floodplain.txt', 'WBff_melt_surfrunoff_snow_olake_floodplain.txt ', 'WBff_rain_surfrunoff_mriver_floodplain.txt ', 'WBff_rain_surfrunoff_olake_floodplain.txt ', 'WBff_satsfflow_soillayer1_mriver_floodplain.txt', 'WBff_satsfflow_soillayer1_olake_floodplain.txt ', 'WBff_soilrunf_soillayer1_mriver_floodplain.txt ', 'WBff_soilrunf_soillayer2_mriver_floodplain.txt ', 'WBff_soilrunf_soillayer3_mriver_floodplain.txt ', 'WBff_soilrunf_soillayer1_olake_floodplain.txt ', 'WBff_soilrunf_soillayer2_olake_floodplain.txt ', 'WBff_soilrunf_soillayer3_olake_floodplain.txt ', 'WBff_flooded_snow_mriver_floodplain.txt ', 'WBff_flooded_snow_olake_floodplain.txt ', 'WBff_flow_mriver_floodplain_mriver.txt ', 'WBff_flow_mriver_mriver_floodplain.txt ', 'WBff_flow_olake_floodplain_olake.txt ', 'WBff_flow_olake_olake_floodplain.txt ', 'WBff_tilerunf_soillayer1_mriver_floodplain.txt ', 'WBff_tilerunf_soillayer2_mriver_floodplain.txt ', 'WBff_tilerunf_soillayer3_mriver_floodplain.txt ', 'WBff_tilerunf_soillayer1_olake_floodplain.txt ', 'WBff_tilerunf_soillayer2_olake_floodplain.txt ', 'WBff_tilerunf_soillayer3_olake_floodplain.txt ', 'WBff_reggroundwater_mr_floodplain_reservoir.txt'/)
real, dimension(:,:), allocatable, public	hype_waterbalance::wbflows
real, dimension(:,:), allocatable, public	hype_waterbalance::wbirrflows
real, dimension(:,:), allocatable, public	hype_waterbalance::wbfpflows
real, dimension(:,:), allocatable, public	hype_waterbalance::wbstores
real, dimension(3), private	hype_waterbalance::rechargerf
integer, private	hype_waterbalance::nwbirrbasin
integer, private	hype_waterbalance::nwbfpbasin
integer, dimension(:), allocatable, private	hype_waterbalance::printindex_wbirrflows
integer, dimension(:), allocatable, private	hype_waterbalance::printindex_wbfpflows

Detailed Description

Contains module hype_waterbalance.