river_route_nitrate Subroutine

  1. river.f95
  2. river
  3. river_route_nitrate

public subroutine river_route_nitrate(conn, da9, er, yon)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: conn
real(kind=dp), intent(in) :: da9
real(kind=dp), intent(in) :: er
real(kind=dp), intent(out) :: yon

Called by

proc~~river_route_nitrate~~CalledByGraph proc~river_route_nitrate river_route_nitrate proc~river_route river_route proc~river_route->proc~river_route_nitrate proc~time_process_day time_process_day proc~time_process_day->proc~river_route 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

river_route_nitrate

Source Code

  subroutine river_route_nitrate(conn, da9, er, yon)
    !**** PURPOSE: THIS SUBROUTINE CALCULATES ORGANIC N ROUTING
    !**** CALLED IN: ROUTE
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    !      PARAMETERS & VARIABLES
    !
    !       >>>>> COMMON PARAMETERS & VARIABLES
    !       conn = xnorg * er, g/t: N org. in I layer for subbasin,
    !               corrected for enrichment
    !       da9 = drainage area, ha
    !       er = enrichment coefficient
    !       ydi = yd, daily soil loss caused by water erosion, t,
    !               in route before call rtsed
    !       yon = org N loss with erosion, kg/ha, routed
    !       >>>>>
    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    !**** Include common parameters

    real(dp), intent(in) :: conn
    real(dp), intent(in) :: da9
    real(dp), intent(in) :: er
    real(dp), intent(out) :: yon

    yon = .001 * conn * er * ydi / da9
    return
  end subroutine river_route_nitrate