res_pesticide_module Module

routines for swatdeg_hru module


Used by

  • module~~res_pesticide_module~~UsedByGraph module~res_pesticide_module res_pesticide_module proc~basin_res_pest_output basin_res_pest_output proc~basin_res_pest_output->module~res_pesticide_module proc~header_pest header_pest proc~header_pest->module~res_pesticide_module proc~res_allo res_allo proc~res_allo->module~res_pesticide_module proc~res_cs_output res_cs_output proc~res_cs_output->module~res_pesticide_module proc~res_pest res_pest proc~res_pest->module~res_pesticide_module proc~res_pesticide_output res_pesticide_output proc~res_pesticide_output->module~res_pesticide_module proc~res_salt_output res_salt_output proc~res_salt_output->module~res_pesticide_module proc~wet_cs_output wet_cs_output proc~wet_cs_output->module~res_pesticide_module proc~wet_salt_output wet_salt_output proc~wet_salt_output->module~res_pesticide_module

Variables

Type Visibility Attributes Name Initial
type(res_pesticide_processes), public :: res_pestbz
type(res_pesticide_output), public, dimension(:), allocatable, save :: respst_d
type(res_pesticide_output), public, dimension(:), allocatable, save :: respst_m
type(res_pesticide_output), public, dimension(:), allocatable, save :: respst_y
type(res_pesticide_output), public, dimension(:), allocatable, save :: respst_a
type(res_pesticide_output), public :: brespst_d
type(res_pesticide_output), public :: brespst_m
type(res_pesticide_output), public :: brespst_y
type(res_pesticide_output), public :: brespst_a
type(res_pesticide_output), public :: respst
type(res_pesticide_output), public :: respstz
type(res_pesticide_header), public :: respest_hdr

Interfaces

public interface operator (+)

public interface operator (/)

public interface operator (//)


Derived Types

type, public ::  res_pesticide_processes

Components

Type Visibility Attributes Name Initial
real, public :: tot_in = 0.
real, public :: sol_out = 0.
real, public :: sor_out = 0.
real, public :: react = 0.
real, public :: metab = 0.
real, public :: volat = 0.
real, public :: settle = 0.
real, public :: resus = 0.
real, public :: difus = 0.
real, public :: react_bot = 0.
real, public :: metab_bot = 0.
real, public :: bury = 0.
real, public :: water = 0.
real, public :: benthic = 0.

type, public ::  res_pesticide_output

Components

Type Visibility Attributes Name Initial
type(res_pesticide_processes), public, dimension (:), allocatable :: pest

type, public ::  res_pesticide_header

Components

Type Visibility Attributes Name Initial
character(len=6), public :: day = "  jday"
character(len=6), public :: mo = "   mon"
character(len=6), public :: day_mo = "   day"
character(len=6), public :: yrc = "    yr"
character(len=8), public :: isd = "   unit "
character(len=8), public :: id = " gis_id "
character(len=16), public :: name = " name"
character(len=16), public :: pest = " pesticide"
character(len=13), public :: tot_in = "tot_in_kg "
character(len=13), public :: sol_out = "sol_out_kg "
character(len=14), public :: sor_out = "sor_out_kg "
character(len=13), public :: react = "react_h2o_kg"
character(len=13), public :: metab = "metab_h2o_kg"
character(len=10), public :: volat = "volat_kg"
character(len=10), public :: settle = "settle_kg"
character(len=13), public :: resus = "resuspend_kg"
character(len=11), public :: difus = "diffuse_kg "
character(len=15), public :: react_bot = "react_benth_kg "
character(len=15), public :: metab_bot = "metab_benth_kg "
character(len=14), public :: bury = "bury_benth_kg "
character(len=14), public :: water = "water_stor_kg "
character(len=13), public :: benthic = "benthic_kg"

Functions

public function respest_add(res1, res2) result(res3)

Arguments

Type IntentOptional Attributes Name
type(res_pesticide_processes), intent(in) :: res1
type(res_pesticide_processes), intent(in) :: res2

Return Value type(res_pesticide_processes)

public function respest_div(res1, const) result(res2)

Arguments

Type IntentOptional Attributes Name
type(res_pesticide_processes), intent(in) :: res1
real, intent(in) :: const

Return Value type(res_pesticide_processes)

public function respest_ave(res1, const) result(res2)

Arguments

Type IntentOptional Attributes Name
type(res_pesticide_processes), intent(in) :: res1
real, intent(in) :: const

Return Value type(res_pesticide_processes)