nutrient_leaching Subroutine

  1. nutrient.f95
  2. nutrient
  3. nutrient_leaching

public subroutine nutrient_leaching(j, jea, k, bd, cbn, flate, flu, fon, fop, frar, nn, poe, preinf, psp, qd, rsd, rtn, ste, te, ul, yone, yphe)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: j
integer, intent(in) :: jea
integer, intent(in) :: k
real(kind=dp), intent(in), dimension(:):: bd
real(kind=dp), intent(in), dimension(:, :):: cbn
real(kind=dp), intent(in), dimension(:, :, :):: flate
real(kind=dp), intent(in), dimension(:):: flu
real(kind=dp), intent(inout), dimension(:, :, :):: fon
real(kind=dp), intent(inout), dimension(:, :, :):: fop
real(kind=dp), intent(in), dimension(:, :):: frar
integer, intent(in) :: nn
real(kind=dp), intent(in), dimension(:, :, :):: poe
real(kind=dp), intent(in), dimension(:, :):: preinf
real(kind=dp), intent(in) :: psp
real(kind=dp), intent(in) :: qd
real(kind=dp), intent(inout), dimension(:, :, :):: rsd
real(kind=dp), intent(in) :: rtn
real(kind=dp), intent(in), dimension(:, :, :):: ste
real(kind=dp), intent(in), dimension(:, :, :):: te
real(kind=dp), intent(in), dimension(:, :):: ul
real(kind=dp), intent(inout), dimension(:):: yone
real(kind=dp), intent(inout), dimension(:):: yphe

Calls

proc~~nutrient_leaching~~CallsGraph proc~nutrient_leaching nutrient_leaching proc~nutrient_nitrate_cycle nutrient_nitrate_cycle proc~nutrient_leaching->proc~nutrient_nitrate_cycle proc~nutrient_nitrate_leaching nutrient_nitrate_leaching proc~nutrient_leaching->proc~nutrient_nitrate_leaching proc~nutrient_phosphorus_loss nutrient_phosphorus_loss proc~nutrient_leaching->proc~nutrient_phosphorus_loss proc~nutrient_phosphorus_cycle nutrient_phosphorus_cycle proc~nutrient_leaching->proc~nutrient_phosphorus_cycle amin1 amin1 proc~nutrient_nitrate_cycle->amin1 proc~nutrient_phosphorus_cycle->amin1

Called by

proc~~nutrient_leaching~~CalledByGraph proc~nutrient_leaching nutrient_leaching proc~hydrotope_process hydrotope_process proc~hydrotope_process->proc~nutrient_leaching proc~runsubbasin runsubbasin proc~runsubbasin->proc~hydrotope_process 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

Contents

Source Code

nutrient_leaching

Source Code

  subroutine nutrient_leaching(j, jea, k, bd, cbn, flate, flu, fon, fop, frar, nn, poe, preinf, psp, qd, rsd, rtn, ste, te, ul, yone, yphe)

    real(dp), dimension(:), intent(in) :: bd
    real(dp), dimension(:, :), intent(in) :: cbn
    real(dp), dimension(:, :, :), intent(in) :: flate
    real(dp), dimension(:), intent(in) :: flu
    real(dp), dimension(:, :, :), intent(inout) :: fon
    real(dp), dimension(:, :, :), intent(inout) :: fop
    real(dp), dimension(:, :), intent(in) :: frar
    integer, intent(in) :: nn
    real(dp), dimension(:, :, :), intent(in) :: poe
    real(dp), dimension(:, :), intent(in) :: preinf
    real(dp), intent(in) :: psp
    real(dp), intent(in) :: qd
    real(dp), dimension(:, :, :), intent(inout) :: rsd
    real(dp), intent(in) :: rtn
    real(dp), dimension(:, :, :), intent(in) :: ste
    real(dp), dimension(:, :, :), intent(in) :: te
    real(dp), dimension(:, :), intent(in) :: ul
    real(dp), dimension(:), intent(inout) :: yone
    real(dp), dimension(:), intent(inout) :: yphe
    integer, intent(in) :: j, jea, k
    !#### CALC NITRATE LEACHING, SOLUBLE P LEACING, N & P CYCLES
    call nutrient_nitrate_leaching(j, jea, k, flate, nn, poe, preinf, qd, ul)
    call nutrient_phosphorus_loss(j, jea, k, bd, qd)
    call nutrient_nitrate_cycle(j, jea, k, cbn, flu, fon, fop, frar, nn, rsd, rtn, ste, te, ul, yone)
    call nutrient_phosphorus_cycle(j, jea, flu, fon, fop, frar, nn, psp, rsd, yphe)
  end subroutine nutrient_leaching