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
      
      type manure_data
        character(len=16) :: fertnm = " "
      !  character(len=16), dimension(:),allocatable :: path = " "
      !  character(len=16), dimension(:),allocatable :: antibiotic = " "
      end type manure_data
      type (manure_data), dimension(:),allocatable :: manure_db
      
      end module fertilizer_data_module