R/calpuff_07_chem_ddep_gases.R

In rich-iannone/PuffR: A set of tools to help with CALPUFF dispersion modelling.

#' Set the CALPUFF chemical parameters for dry deposition of gases
#' @description This function validates and writes CALPUFF chemical parameters for dry deposition of gases.
#' @param calpuff_inp the absolute path and filename for the working CALPUFF input file.
#' @param species_names a vector list of gas-phase chemical species for which dry deposition parameters are available.
#' @param species_ddep_params a vector list of the following chemical parameters for dry deposition of gases: (1) alpha star, (2) reactivity, (3) mesophyll resistance, and (4) Henry's Law coefficient.
#' @export calpuff_07_chem_ddep_gases

calpuff_07_chem_ddep_gases <- function(calpuff_inp = "calpuff_template.txt",
                                       species_names = NULL,
                                       species_ddep_params = NULL){
  
  # Read in the working calpuff.inp file as a character vector
  calpuff_inp_working <- readLines(calpuff_inp, warn = FALSE)
  
}