module pesticide_data_module implicit none type pesticide_db character(len=16) :: name = ""!! |pesticide name real :: koc = 0. !! (mL/g) |soil adsorption coeff normalized for soil org carbon content real :: washoff = 0. !! none |frac of pesticide on foliage which is washed off by rainfall event real :: foliar_hlife = 0. !! days |half-life of pest on foliage real :: soil_hlife = 0. !! days |half-life of pest in soil real :: solub = 0. !! mg/L (ppm) |solubility of chemical in water real :: aq_hlife = 0. !! days |aquatic half-life real :: aq_volat = 0. !! m/day |aquatic volatilization coeff real :: mol_wt = 0. !! g/mol |molecular weight - to calulate mixing velocity real :: aq_resus = 0. !! m/day |aquatic resuspension velocity for pesticide sorbed to sediment real :: aq_settle = 0. !! m/day |aquatic settling velocity for pesticide sorbed to sediment real :: ben_act_dep = 0. !! m |depth of active benthic layer real :: ben_bury = 0. !! m/day |burial velocity in benthic sediment real :: ben_hlife = 0. !! days |half-life of pest in benthic sediment real :: pl_uptake = 0. !! none |fraction taken up by plant character(len=32) :: descrip = "" !pesticide description end type pesticide_db type (pesticide_db), dimension(:), allocatable, save :: pestdb type daughter_decay_fractions character(len=16) :: name = ""!! daughter pesticide name integer :: num = 0 !! sequential pesticide number in simulation real :: foliar_fr = 0. !! 0-1 |fraction of parent foilar degrading to daughter real :: soil_fr = 0. !! 0-1 |fraction of parent soil degrading to daughter real :: aq_fr = 0. !! 0-1 |fraction of parent aquatic degrading to daughter real :: ben_fr = 0. !! 0-1 |fraction of parent benthic degrading to daughter end type daughter_decay_fractions type pesticide_cp !! calculated parameters from input parms integer :: num_metab = 0 !! number of metabolites type (daughter_decay_fractions), dimension(:), allocatable :: daughter real :: decay_f = 0. !! none |exp of the rate const for degradation of the pest on foliage real :: decay_s = 0. !! none |exp of the rate const for degradation of the pest in soil real :: decay_a = 0. !! none |exp of the rate const for degradation of the pest in aquatic real :: decay_b = 0. !! none |exp of the rate const for degradation of the pest in benthic layer end type pesticide_cp type (pesticide_cp), dimension(:), allocatable, save:: pestcp end module pesticide_data_module