subbasin_initialise_subbasin Subroutine

  1. subbasin.f95
  2. subbasin
  3. subbasin_initialise_subbasin

public subroutine subbasin_initialise_subbasin(canev, sml, xcklsp, xet, xnorg, xnorgp, xporg, xpsedp, xqd, yon, yph)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(out) :: canev
real(kind=dp), intent(out) :: sml
real(kind=dp), intent(out) :: xcklsp
real(kind=dp), intent(out) :: xet
real(kind=dp), intent(out) :: xnorg
real(kind=dp), intent(out) :: xnorgp
real(kind=dp), intent(out) :: xporg
real(kind=dp), intent(out) :: xpsedp
real(kind=dp), intent(out) :: xqd
real(kind=dp), intent(out) :: yon
real(kind=dp), intent(out) :: yph

Called by

proc~~subbasin_initialise_subbasin~~CalledByGraph proc~subbasin_initialise_subbasin subbasin_initialise_subbasin proc~time_process_day time_process_day proc~time_process_day->proc~subbasin_initialise_subbasin proc~runsubbasin runsubbasin proc~time_process_day->proc~runsubbasin proc~runsubbasin->proc~subbasin_initialise_subbasin 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

subbasin_initialise_subbasin

Source Code

  subroutine subbasin_initialise_subbasin(canev, sml, xcklsp, xet, xnorg, xnorgp, xporg, xpsedp, xqd, yon, yph)
  !**** PURPOSE: this subroutine initialises subbasin variables
  !**** CALLED IN: subbasin
  !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    real(dp), intent(out) :: canev
    real(dp), intent(out) :: sml
    real(dp), intent(out) :: xcklsp
    real(dp), intent(out) :: xet
    real(dp), intent(out) :: xnorg
    real(dp), intent(out) :: xnorgp
    real(dp), intent(out) :: xporg
    real(dp), intent(out) :: xpsedp
    real(dp), intent(out) :: xqd
    real(dp), intent(out) :: yon
    real(dp), intent(out) :: yph

    sumcn = 0.
    xqd = 0.
    xqi = 0.
    xssf = 0.
    qtl = 0.
    yd = 0.
    yon = 0.
    yph = 0.
    xsep = 0.
    xeo = 0.
    xet = 0.
    xsnoev = 0.
    xswind = 0.
    xyno3 = 0.
    xysp = 0.
    xssfn = 0.
    xpercn = 0.
    xnorg = 0.
    xnorgp = 0.
    xporg = 0.
    xporgp = 0.
    xpsed = 0.
    xpsedp = 0.
    xcklsp = 0.
    sml = 0.
    canev = 0.

  end subroutine subbasin_initialise_subbasin