R/PrecipitationStartDay.R

In ecor/RMAWGEN: Multi-Site Auto-Regressive Weather GENerator

NULL



#' Gets the first day in a precipitation time series, expressed in decimal julian days since 1970-1-1 00:00 UTC
#' 
#'  @author  Emanuele Cordano
#'   
#' @param name  character ID of the station 
#' @param station_names  vector containing the IDs (characters)  of the considered meteorological stations. An example is \code{STATION_NAMES} defined in the \code{\link{trentino}} dataset.
#' @param start_day      vector containing the precipitation measurement start day. An example is \code{TEMPERATURE_MEASUREMENT_START_DAY} defined in the \code{\link{trentino}} dataset.
#'  
#' @export 
#'
#'       
#' @return  the precipitation measurement start day given the vectors of station IDs and the respective precipitation measurement start days
#' 
#' 
#' @examples 
#' data(trentino)
#' PrecipitationStartDay("T0099",
#'      station_names=STATION_NAMES,
#'      start_day=PRECIPITATION_MEASUREMENT_START_DAY) 
#' 
#' 




PrecipitationStartDay <-
function(name,station_names,start_day) { return(start_day[station_names==name])}