R/AddMetFiles.R

Defines functions AddMetFiles

Documented in AddMetFiles

AddMetFiles <- 
  function(month, Year, met, script.file, control.file) 
{
  ## if month is one, need previous year and month = 12
  if (month == 0) {
    month <- 12
    Year <- as.numeric(Year) - 1
  }
  
  if (month < 10) {
    month <- paste("0", month, sep = "")
  }
  
  ## add first line
  line <- paste("echo", met, ">>", control.file, sep=" ")
  cat(line, file = script.file, sep = "\n")
  
  line <- paste("echo RP", Year, month, ".gbl >> ", control.file, sep = "")
  cat(line, file = script.file, sep = "\n")
}

Try the opentraj package in your browser

Any scripts or data that you put into this service are public.

opentraj documentation built on May 29, 2017, 11:45 a.m.