0 Members and 1 Guest are viewing this topic.
Public Function Vegetable_Ingestion(Plant_to_Soil_RadMassConc_Rat io As Double, _RadVolConc_Waste As Double, _Soil_Mixing_Dilution_Factor As Double, _Annual_ConsumedMass_Vegetable s As Double, _DCF_Ingestion As Double, _BulkDensity_Soil As Double) As Double'Vegetable Ingestion Pathway'Returns annual EDE (rem/yr) from vegetable ingestion for given inputs' Plant_to_Soil_RadMassConc_Rat io - plant-to-soil concentration ratio for radionuclide(uCi/kg vegetable per uCi/kg dry soil)' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Soil_Mixing_Dilution_Factor - dilution factor for mixing of exhumed waste with garden soil' Annual_ConsumedMass_Vegetable s - annual consumption of vegetables (kg/yr)' DCF_Ingestion - DCF for ingestion of radionuclide (rem/uCi)' BulkDensity_Soil - bulk density of soil (kg/m3)Vegetable_Ingestion = Plant_to_Soil_RadMassConc_Rat io * _RadVolConc_Waste * Soil_Mixing_Dilution_Factor * _Annual_ConsumedMass_Vegetable s * _DCF_Ingestion / BulkDensity_SoilEnd FunctionPublic Function Soil_Ingestion(RadVolConc_Waste As Double, _Soil_Mixing_Dilution_Factor As Double, _Annual_ConsumedMass_Soil As Double, _DCF_Ingestion As Double, _BulkDensity_Soil As Double) As Double'Soil Ingestion Pathway'Returns annual EDE (rem/yr) from soil ingestion for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Soil_Mixing_Dilution_Factor - dilution factor for mixing of exhumed waste with garden soil' Annual_ConsumedMass_Soil - annual consumption of soil (kg/yr)' DCF_Ingestion - DCF for ingestion of radionuclide (rem/uCi)' BulkDensity_Soil - bulk density of soil (kg/m3)Soil_Ingestion = RadVolConc_Waste * Soil_Mixing_Dilution_Factor * _Annual_ConsumedMass_Soil * DCF_Ingestion / BulkDensity_SoilEnd FunctionPublic Function Garden_Exposure(RadVolConc_Waste As Double, _Soil_Mixing_Dilution_Factor As Double, _Year_Fraction_Garden_Exposure As Double, _DCF_15cmSoil As Double) As Double'External Exposure to Soil Working in Garden'Returns annual EDE (rem/yr) from exposure working in garden for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Soil_Mixing_Dilution_Factor - dilution factor for mixing of exhumed waste with garden soil' Year_Fraction_Garden_Exposure - fraction of year that exposure in garden occurs' DCF_15cmSoil - DCF for uniform distribution in 15 cm of surface soil (rem/yr per uCi/m3)Garden_Exposure = RadVolConc_Waste * Soil_Mixing_Dilution_Factor * _Year_Fraction_Garden_Exposure * DCF_15cmSoilEnd FunctionPublic Function Home_AG_Exposure(RadVolConc_Waste As Double, _Year_Fraction_Home_Exposure As Double, _DCF_InfSoil_NoShield As Double, _Shielding_Factor_Home As Double) As Double'External Exposure Residing in Home for Agriculture'Returns annual EDE (rem/yr) from exposure residing in home for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Year_Fraction_Home_Exposure - fraction of year that exposure in home occurs' DCF_InfSoil_NoShield - DCF for uniform distribution in infinite soil with no shielding(rem/yr per uCi/m3)' Shielding_Factor_Home - shielding factor for home (uniform for all radionuclides)Home_AG_Exposure = RadVolConc_Waste * Year_Fraction_Home_Exposure * _DCF_InfSoil_NoShield * Shielding_Factor_HomeEnd FunctionPublic Function Garden_Inhalation(RadVolConc_Waste As Double, _Soil_Mixing_Dilution_Factor As Double, _AtmMassLoading_Soil_Garden As Double, _Year_Fraction_Garden_Exposure As Double, _Annual_AirVolIntake_Garden As Double, _DCF_Inhalation As Double, _BulkDensity_Soil As Double) As Double'Inhalation of Particles Working in Garden'Returns annual EDE (rem/yr) from soil inhalation in garden for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Soil_Mixing_Dilution_Factor - dilution factor for mixing of exhumed waste with garden soil' AtmMassLoading_Soil_Garden - atmospheric mass loading of surface soil for garden (kg/m3)' Year_Fraction_Garden_Exposure - fraction of year during which inhalation exposure in garden occurs' Annual_AirVolIntake_Garden - annual air intake in garden (m3/yr)' DCF_Inhalation - DCF for inhalation of radionuclide (rem/uCi)' BulkDensity_Soil - bulk density of soil (kg/m3)Garden_Inhalation = RadVolConc_Waste * Soil_Mixing_Dilution_Factor * _AtmMassLoading_Soil_Garden * _Year_Fraction_Garden_Exposure * _Annual_AirVolIntake_Garden * _DCF_Inhalation / BulkDensity_SoilEnd FunctionPublic Function Home_Inhalation(RadVolConc_Waste As Double, _AtmMassLoading_Soil_Home As Double, _Year_Fraction_Home_Exposure As Double, _Annual_AirVolIntake_Home As Double, _DCF_Inhalation As Double, _BulkDensity_Soil As Double) As Double'Inhalation of Particles Residing in Home'Returns annual EDE (rem/yr) from soil inhalation in home for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' AtmMassLoading_Soil_Home - atmospheric mass loading of surface soil for home (kg/m3)' Year_Fraction_Home_Exposure - fraction of year during which inhalation exposure in home occurs' Annual_AirVolIntake_Home - annual air intake in home (m3/yr)' DCF_Inhalation - DCF for inhalation of radionuclide (rem/uCi)' BulkDensity_Soil - bulk density of soil (kg/m3)Home_Inhalation = RadVolConc_Waste * _AtmMassLoading_Soil_Home * _Year_Fraction_Home_Exposure * _Annual_AirVolIntake_Home * _DCF_Inhalation / BulkDensity_SoilEnd FunctionPublic Function Home_Res_Exposure(RadVolConc_Waste As Double, _Year_Fraction_Home_Exposure As Double, _DCF_InfSoil_100cmShield As Double, _Shielding_Factor_Home As Double) As Double'External Exposure Residing in Home for Resident'Returns annual EDE (rem/yr) from exposure residing in home for given inputs' RadVolConc_Waste - concentration of radionuclide in exhumed waste (uCi/m3)' Year_Fraction_Home_Exposure - fraction of year that exposure in home occurs' DCF_InfSoil_100cmShield - DCF for uniform distribution in infinite soil with 100 cm shielding(rem/yr per uCi/m3)' Shielding_Factor_Home - shielding factor for home (uniform for all radionuclides)Home_Res_Exposure = RadVolConc_Waste * Year_Fraction_Home_Exposure * _DCF_InfSoil_100cmShield * Shielding_Factor_HomeEnd FunctionPublic Function RadDose(Inventory As Double, _WasteVolume As Double, _SDCF As Double, _GeometryFactor As Double, _RadFractionRemaining As Double)'Returns dose for given nuclide in rem/yr for given inputs' Inventory - rad waste inventory in uCi' WasteVolume - volume of waste in disposal unit (m3)' SDCF - scenario dose conversion factor for nuclide (rem/yr per uCi/m3)' This is scenario EDE that is calculated for concentration of 1 uCi/m3' GeometryFactor - geometrical correction factor' RadFractionRemaining - fraction of initial inventory remaining for radRadDose = (Inventory / WasteVolume) * SDCF * GeometryFactor * RadFractionRemainingEnd Function