EmissV (version 0.664.5)

emission: Emissions in the format for atmospheric models

Description

Combine area sources and total emissions to model output

Usage

emission(total, pol, area, grid, inventory = NULL, mm = 1, aerosol = F,
  plot = F, verbose = T)

Arguments

total

list of total emission

pol

pollutant name

area

list of area sources or matrix with a spatial distribution

grid

grid information

inventory

a inventory raster from read

mm

pollutant molar mass

aerosol

TRUE for aerosols and FALSE (defoult) for gazes

plot

TRUE for plot the final emissions

verbose

display additional information

Format

matrix of emission

See Also

totalEmission and areaSource

Examples

# NOT RUN {
veiculos <- vehicles(example = TRUE)

EmissionFactors <- emissionFactor(example = TRUE)

TOTAL  <- totalEmission(veiculos,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")
RJ     <- areaSource(shape[17,1],raster,grid,name = "RJ")

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

# }