EmissV (version 0.666.0.0)

emission: Emissions in the format for atmospheric models

Description

Combine area sources and total emissions to model output

Usage

emission(
  inventory = NULL,
  grid,
  mm = 1,
  aerosol = FALSE,
  check = TRUE,
  total,
  pol,
  area,
  plot = FALSE,
  verbose = TRUE
)

Value

a vector of emissions in MOL / mk2 h for gases and ug / m2 s for aerosols.

Format

matrix of emission

Arguments

inventory

a inventory raster from read

grid

grid information

mm

pollutant molar mass

aerosol

TRUE for aerosols and FALSE (defoult) for gazes

check

TRUE (defoult) to check negative and NA values and replace it for zero

total

list of total emission

pol

pollutant name

area

list of area sources or matrix with a spatial distribution

plot

TRUE for plot the final emissions

verbose

display additional information

See Also

totalEmission and areaSource

Examples

fleet  <- vehicles(example = TRUE)

EmissionFactors <- emissionFactor(example = TRUE)

TOTAL  <- totalEmission(fleet,EmissionFactors,pol = c("CO"),verbose = TRUE)

grid   <- gridInfo(paste0(system.file("extdata", package = "EmissV"),"/wrfinput_d01"))
shape  <- raster::shapefile(paste0(system.file("extdata", package = "EmissV"),"/BR.shp"))
raster <- raster::raster(paste0(system.file("extdata", package = "EmissV"),"/dmsp.tiff"))

SP     <- areaSource(shape[22,1],raster,grid,name = "SP")

e_CO   <- emission(total = TOTAL,
                   pol = "CO",
                   area = list(SP = SP),
                   grid = grid,
                   mm = 28)