pl_manure Subroutine

subroutine pl_manure(ifrt, frt_kg, fertop)

Uses

  • proc~~pl_manure~~UsesGraph proc~pl_manure pl_manure module~basin_module basin_module proc~pl_manure->module~basin_module module~fertilizer_data_module fertilizer_data_module proc~pl_manure->module~fertilizer_data_module module~hru_module hru_module proc~pl_manure->module~hru_module module~mgt_operations_module mgt_operations_module proc~pl_manure->module~mgt_operations_module module~organic_mineral_mass_module organic_mineral_mass_module proc~pl_manure->module~organic_mineral_mass_module module~soil_module soil_module proc~pl_manure->module~soil_module module~carbon_module carbon_module module~organic_mineral_mass_module->module~carbon_module module~soil_module->module~carbon_module 
~ ~ ~ PURPOSE ~ ~ ~
this subroutine applies N and P specified by date and
amount in the management file (.mgt)
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

~ ~ ~ SUBROUTINES/FUNCTIONS CALLED ~ ~ ~
SWAT: Erfc

~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~

add water to layer - mm = kg/ha * 1.0m3/t * ha/10,000m2 * 1,000mm/m or 1 kg of water = 1liter * 1000cm^3/liter * 1000mm^3/cm^3 = 1,000,000 mm^3 1 hectare = 10,000m^2 x 1,000,000mm^2/m2 = 10,000,000,000 mm2 1 kg of water/ha = 1,000,000 mm^2 / 10,000,000,000 mm^2 = .0001 mm/ha

frac_solids = solids/(solids + liquid) therefore: solids + liquid = solids/frac_solids therefore: liquid = solids/frac_solids - solids and frac_solids = 1 - frac_liquid therefore: liquid = solids/(1 - frac_liquid) - solids

By Zhang for C/N cycling

allocate organic fertilizer to Slow N pool; remaining organic N is llocated to structural litter N pool By Zhang for C/N cycling ===========================

summary calculations

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ifrt
real, intent(in) :: frt_kg
integer, intent(in) :: fertop