fertilizer_data_module.f90 Source File

      module fertilizer_data_module
     
      implicit none
          
      type fertilizer_db
        character(len=16) :: fertnm = " "
        real :: fminn = 0.            !! kg minN/kg frt     |fract of fert which is mineral nit (NO3+NH3)
        real :: fminp = 0.            !! kg minN/kg frt     |frac of fert which is mineral phos
        real :: forgn = 0.            !! kg orgN/kg frt     |frac of fert which is org n
        real :: forgp = 0.            !! kg orgP/kg frt     |frac of fert which is org p
        real :: fnh3n = 0.            !! kg NH3-N/kg N      |frac of mineral N content of fert which is NH3
      end type fertilizer_db
      type (fertilizer_db), dimension(:),allocatable, save :: fertdb
      
      !! manure database - name and characteristics of different manure types
      type manure_database
        character (len=25) :: name = ""         !name of manure type
        character (len=25) :: org_min = ""      !sediment, carbon, and nutrients
        character (len=25) :: pests = ""        !pesticides - ppm
        character (len=25) :: paths = ""        !pathogens - cfu
        character (len=25) :: hmets = ""        !heavy metals - ppm
        character (len=25) :: salts = ""        !salt ions - ppm
        character (len=25) :: constit = ""      !other constituents - ppm
        character (len=80) :: descrip = ""      !description
        integer :: iorg_min = 0                 !sediment, carbon, and nutrients - pointer to
        integer :: ipests = 0                   !pesticides - pointer to
        integer :: ipaths = 0                   !pathogens - pointer to
        integer :: imets = 0                    !heavy metals - pointer to
        integer :: isalts = 0                   !salt ions - pointer to
        integer :: iconstit = 0                 !other constituents - pointer to
      end type manure_database        
      type (manure_database), dimension(:), allocatable :: manure_db
      
      !! manure organic matter attributes database - used to allocate manure applications to soil carbon and nitrogen pools
      type manure_attributes
        character(len=64) ::  name = " "  !! Identifier used to crosswalk fertilizer entries, constructed from
                                          !! manure_region, manure_source, and manure_type
        real :: frac_water = 0.       !! kg water/(kg manure + kg_water) |frac of manure which is water
        real :: fcbn = 0.0            !! kg C/kg frt        |frac of fert which is carbon
        real :: fminn = 0.            !! kg minN/kg frt     |frac of fert which is mineral nitrogen (NO3+NH3)
        real :: fminp = 0.            !! kg minN/kg frt     |frac of fert which is mineral phoshorus
        real :: forgn = 0.            !! kg orgN/kg frt     |frac of fert which is org N
        real :: forgp = 0.            !! kg orgP/kg frt     |frac of fert which is org P
        real :: fnh3n = 0.            !! kg NH3-N/kg N      |frac of mineral N content of fert which is NH3
        character(len=64) :: description = " "      !!  na  |description of manure type
      end type  manure_attributes
      type (manure_attributes), dimension(:),allocatable :: manure_om
      
      end module fertilizer_data_module