R/thornthwaite_mather__PE_adjusted.R

In smwesten-usgs/swbr: swbr: a Soil-Water-Balance model implemented in R

#' Title
#'
#' @param month
#' @param day
#' @param year
#' @param latitude
#' @param TM_e
#'
#' @return
#' @export
#'
#' @examples
calc_TM_PET_adj <- function(month, day, year, latitude, TM_e) {

  h <- calc_daylight_hours(month, day, year, latitude)
  TM_PET_adj <- TM_e  * (h/12)

  return(TM_PET_adj)

}