erosion_phosphorus_loss Subroutine

public subroutine erosion_phosphorus_loss(j, da9, yd, yph)

! if (yph.lt.xporgp) yph = 0.

Arguments

Type IntentOptional Attributes Name
integer :: j
real(kind=dp), intent(in) :: da9
real(kind=dp), intent(in) :: yd
real(kind=dp), intent(inout) :: yph

Called by

proc~~erosion_phosphorus_loss~~CalledByGraph proc~erosion_phosphorus_loss erosion_phosphorus_loss proc~runsubbasin runsubbasin proc~runsubbasin->proc~erosion_phosphorus_loss proc~time_process_day time_process_day proc~time_process_day->proc~runsubbasin proc~time_process_month time_process_month proc~time_process_month->proc~time_process_day proc~time_process_years time_process_years proc~time_process_years->proc~time_process_month program~swim swim program~swim->proc~time_process_years