RunoffMod Module


Uses


Variables

Type Visibility Attributes Name Initial
type(GlobalSegMap), public :: gsmap_r
type(SparseMatrixPlus), public :: sMatP_dnstrm
type(AttrVect), public :: avsrc_dnstrm
type(AttrVect), public :: avdst_dnstrm
type(SparseMatrixPlus), public :: sMatP_direct
type(AttrVect), public :: avsrc_direct
type(AttrVect), public :: avdst_direct
type(SparseMatrixPlus), public :: sMatP_eroutUp
type(AttrVect), public :: avsrc_eroutUp
type(AttrVect), public :: avdst_eroutUp
type(Tcontrol), public :: Tctl
type(Tspatialunit), public :: TUnit
type(TstatusFlux), public :: TRunoff
type(Tparameter), public :: TPara
type(runoff_flow), public :: rtmCTL

Derived Types

type, public ::  runoff_flow

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: lonc(:)
real(kind=r8), public, pointer :: latc(:)
real(kind=r8), public, pointer :: area(:)
integer, public, pointer :: gindex(:)
integer, public, pointer :: dsig(:)
integer, public, pointer :: outletg(:)
integer, public, pointer :: mask(:)
real(kind=r8), public, pointer :: rlon(:)
real(kind=r8), public, pointer :: rlat(:)
real(kind=r8), public :: totarea
integer, public :: numr
integer, public :: begr
integer, public :: endr
integer, public :: lnumr
real(kind=r8), public, pointer :: runofflnd(:,:)
real(kind=r8), public, pointer :: runoffocn(:,:)
real(kind=r8), public, pointer :: runofftot(:,:)
real(kind=r8), public, pointer :: dvolrdt(:,:)
real(kind=r8), public, pointer :: dvolrdtlnd(:,:)
real(kind=r8), public, pointer :: dvolrdtocn(:,:)
real(kind=r8), public, pointer :: volr(:,:)
real(kind=r8), public, pointer :: fthresh(:)
real(kind=r8), public, pointer :: wh(:,:)
real(kind=r8), public, pointer :: wt(:,:)
real(kind=r8), public, pointer :: wr(:,:)
real(kind=r8), public, pointer :: erout(:,:)
real(kind=r8), public, pointer :: qsur(:,:)
real(kind=r8), public, pointer :: qsub(:,:)
real(kind=r8), public, pointer :: qgwl(:,:)
real(kind=r8), public, pointer :: flood(:)
real(kind=r8), public, pointer :: runoff(:,:)
real(kind=r8), public, pointer :: direct(:,:)
real(kind=r8), public, pointer :: qirrig(:)
real(kind=r8), public, pointer :: qirrig_actual(:)
real(kind=r8), public, pointer :: runofflnd_nt1(:)
real(kind=r8), public, pointer :: runofflnd_nt2(:)
real(kind=r8), public, pointer :: runoffocn_nt1(:)
real(kind=r8), public, pointer :: runoffocn_nt2(:)
real(kind=r8), public, pointer :: runofftot_nt1(:)
real(kind=r8), public, pointer :: runofftot_nt2(:)
real(kind=r8), public, pointer :: runoffdir_nt1(:)
real(kind=r8), public, pointer :: runoffdir_nt2(:)
real(kind=r8), public, pointer :: dvolrdtlnd_nt1(:)
real(kind=r8), public, pointer :: dvolrdtlnd_nt2(:)
real(kind=r8), public, pointer :: dvolrdtocn_nt1(:)
real(kind=r8), public, pointer :: dvolrdtocn_nt2(:)
real(kind=r8), public, pointer :: volr_nt1(:)
real(kind=r8), public, pointer :: volr_nt2(:)
real(kind=r8), public, pointer :: volr_mch(:)
real(kind=r8), public, pointer :: qsur_nt1(:)
real(kind=r8), public, pointer :: qsur_nt2(:)
real(kind=r8), public, pointer :: qsub_nt1(:)
real(kind=r8), public, pointer :: qsub_nt2(:)
real(kind=r8), public, pointer :: qgwl_nt1(:)
real(kind=r8), public, pointer :: qgwl_nt2(:)

type, public ::  Tcontrol

Components

Type Visibility Attributes Name Initial
integer, public :: NUnit
integer, public :: NSTART
integer, public :: NSTEPS
integer, public :: NWARMUP
real(kind=r8), public :: DATAH
integer, public :: Num_dt
real(kind=r8), public :: DeltaT
integer, public :: DLevelH2R
integer, public :: DLevelR
integer, public :: Restart
integer, public :: RoutingMethod
integer, public :: RoutingFlag
character(len=100), public :: baseName
character(len=200), public :: ctlFile
character(len=100), public :: ctlPath
character(len=200), public :: paraFile
character(len=100), public :: paraPath
character(len=100), public :: runoffPath
character(len=100), public :: outPath
integer, public :: numStation
character(len=200), public :: staListFile
integer, public, pointer :: out_ID(:)
character(len=80), public, pointer :: out_name(:)
character(len=80), public :: curOutlet

type, public ::  Tspatialunit

Components

Type Visibility Attributes Name Initial
integer, public, pointer :: mask(:)
integer, public, pointer :: ID0(:)
real(kind=r8), public, pointer :: lat(:)
real(kind=r8), public, pointer :: lon(:)
real(kind=r8), public, pointer :: area(:)
real(kind=r8), public, pointer :: areaTotal(:)
real(kind=r8), public, pointer :: areaTotal2(:)
real(kind=r8), public, pointer :: rlenTotal(:)
real(kind=r8), public, pointer :: Gxr(:)
real(kind=r8), public, pointer :: frac(:)
logical, public, pointer :: euler_calc(:)
real(kind=r8), public, pointer :: nh(:)
real(kind=r8), public, pointer :: hslp(:)
real(kind=r8), public, pointer :: hslpsqrt(:)
real(kind=r8), public, pointer :: hlen(:)
real(kind=r8), public, pointer :: tslp(:)
real(kind=r8), public, pointer :: tslpsqrt(:)
real(kind=r8), public, pointer :: tlen(:)
real(kind=r8), public, pointer :: twidth(:)
real(kind=r8), public, pointer :: nt(:)
real(kind=r8), public, pointer :: rlen(:)
real(kind=r8), public, pointer :: rslp(:)
real(kind=r8), public, pointer :: rslpsqrt(:)
real(kind=r8), public, pointer :: rwidth(:)
real(kind=r8), public, pointer :: rwidth0(:)
real(kind=r8), public, pointer :: rdepth(:)
real(kind=r8), public, pointer :: nr(:)
integer, public, pointer :: dnID(:)
integer, public, pointer :: nUp(:)
integer, public, pointer :: iUp(:,:)
integer, public, pointer :: indexDown(:)
integer, public, pointer :: numDT_r(:)
integer, public, pointer :: numDT_t(:)
real(kind=r8), public, pointer :: phi_r(:)
real(kind=r8), public, pointer :: phi_t(:)

type, public ::  TstatusFlux

states

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: wh(:,:)
real(kind=r8), public, pointer :: dwh(:,:)
real(kind=r8), public, pointer :: yh(:,:)
real(kind=r8), public, pointer :: wsat(:,:)
real(kind=r8), public, pointer :: wunsat(:,:)
real(kind=r8), public, pointer :: qhorton(:,:)
real(kind=r8), public, pointer :: qdunne(:,:)
real(kind=r8), public, pointer :: qsur(:,:)
real(kind=r8), public, pointer :: qsub(:,:)
real(kind=r8), public, pointer :: qgwl(:,:)

fluxes
real(kind=r8), public, pointer :: ehout(:,:)
real(kind=r8), public, pointer :: asat(:,:)
real(kind=r8), public, pointer :: esat(:,:)

states
real(kind=r8), public, pointer :: tarea(:,:)
real(kind=r8), public, pointer :: wt(:,:)
real(kind=r8), public, pointer :: dwt(:,:)
real(kind=r8), public, pointer :: yt(:,:)
real(kind=r8), public, pointer :: mt(:,:)
real(kind=r8), public, pointer :: rt(:,:)
real(kind=r8), public, pointer :: pt(:,:)
real(kind=r8), public, pointer :: vt(:,:)
real(kind=r8), public, pointer :: tt(:,:)

fluxes
real(kind=r8), public, pointer :: tevap(:,:)
real(kind=r8), public, pointer :: etin(:,:)
real(kind=r8), public, pointer :: etout(:,:)

states
real(kind=r8), public, pointer :: rarea(:,:)
real(kind=r8), public, pointer :: wr(:,:)
real(kind=r8), public, pointer :: dwr(:,:)
real(kind=r8), public, pointer :: yr(:,:)
real(kind=r8), public, pointer :: mr(:,:)
real(kind=r8), public, pointer :: rr(:,:)
real(kind=r8), public, pointer :: pr(:,:)
real(kind=r8), public, pointer :: vr(:,:)
real(kind=r8), public, pointer :: tr(:,:)

exchange fluxes
real(kind=r8), public, pointer :: erlg(:,:)
real(kind=r8), public, pointer :: erlateral(:,:)
real(kind=r8), public, pointer :: erin(:,:)
real(kind=r8), public, pointer :: erout(:,:)
real(kind=r8), public, pointer :: erout_prev(:,:)
real(kind=r8), public, pointer :: eroutUp(:,:)
real(kind=r8), public, pointer :: eroutUp_avg(:,:)
real(kind=r8), public, pointer :: erlat_avg(:,:)
real(kind=r8), public, pointer :: flow(:,:)
real(kind=r8), public, pointer :: erin1(:,:)
real(kind=r8), public, pointer :: erin2(:,:)
real(kind=r8), public, pointer :: ergwl(:,:)

for Runge-Kutta algorithm
real(kind=r8), public, pointer :: wrtemp(:,:)
real(kind=r8), public, pointer :: erintemp(:,:)
real(kind=r8), public, pointer :: erouttemp(:,:)
real(kind=r8), public, pointer :: k1(:,:)
real(kind=r8), public, pointer :: k2(:,:)
real(kind=r8), public, pointer :: k3(:,:)
real(kind=r8), public, pointer :: k4(:,:)

type, public ::  Tparameter

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: c_nr(:)
real(kind=r8), public, pointer :: c_nh(:)
real(kind=r8), public, pointer :: c_twid(:)

Subroutines

public subroutine RunoffInit(begr, endr, numr)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: begr
integer, intent(in) :: endr
integer, intent(in) :: numr