R/meteocomplete.R

In miquelcaceres/meteoland: Landscape Meteorology Tools

meteocomplete<-function(x, latitude, elevation, slope, aspect) {
  patm = utils_atmosphericPressure(elevation)
  latrad = latitude*(pi/180)
  slorad = slope*(pi/180)
  asprad = aspect*(pi/180)
  if(is.na(slorad)) slorad = 0
  if(is.na(asprad)) asprad = 0
  if(!("MeanRelativeHumidity" %in% names(x))) x$MeanRelativeHumidity = NA
  if(!("MinRelativeHumidity" %in% names(x))) x$MinRelativeHumidity = NA
  if(!("MaxRelativeHumidity" %in% names(x))) x$MaxRelativeHumidity = NA
  if(!("Radiation" %in% names(x))) x$Radiation = NA
  if(!("PET" %in% names(x))) x$PET = NA
  for(j in 1:nrow(x)) {
    date = as.Date(row.names(x)[j])
    year = as.numeric(format(date,"%Y"))
    month = as.numeric(format(date,"%m"))
    day = as.numeric(format(date,"%d"))
    J = radiation_julianDay(year, month, day)
    tmin = x$MinTemperature[j]
    tmax = x$MaxTemperature[j]
    tmean = x$MeanTemperature[j]
    diffTemp = tmax-tmin
    precipitation = x$Precipitation[j]
    if(("SpecificHumidity" %in% names(x))) {
      hs = x$SpecificHumidity[j]
      #Mean relative humidity
      if(is.na(x$MeanRelativeHumidity[j])) {
        rhmean = .HSHR(tmean, hs)
        x$MeanRelativeHumidity[j] = rhmean
      } else {
        rhmean = x$MeanRelativeHumidity[j]
      }
      #Minimum relative humidity
      if(is.na(x$MinRelativeHumidity[j])) {
        rhmin = .HSHR(tmax, hs)
        x$MinRelativeHumidity[j] = rhmin
      } else {
        rhmin = x$MinRelativeHumidity[j]
      }
      #Maximum relative humidity
      if(is.na(x$MaxRelativeHumidity[j])) {
        rhmax = .HSHR(tmin, hs)
        x$MaxRelativeHumidity[j] = rhmax
      } else {
        rhmax = x$MaxRelativeHumidity[j]
      }
      
    } else {
      #Mean relative humidity
      if(is.na(x$MeanRelativeHumidity[j])) {
        rhmean = 100*utils_saturationVP(tmin)/utils_saturationVP(tmean)
        x$MeanRelativeHumidity[j] = max(min(rhmean,100),0)
      } else {
        rhmean = x$MeanRelativeHumidity[j]
      }
      #Minimum relative humidity
      if(is.na(x$MinRelativeHumidity[j])) {
        rhmin = 100*utils_saturationVP(tmin)/utils_saturationVP(tmax)
        x$MinRelativeHumidity[j] = max(min(rhmin,100),0)
      } else {
        rhmin = x$MinRelativeHumidity[j]
      }
      #Maximum relative humidity
      if(is.na(x$MaxRelativeHumidity[j])) {
        rhmax = 100
        x$MaxRelativeHumidity[j] = max(min(rhmax,100),0)
      } else {
        rhmax = x$MaxRelativeHumidity[j]
      }
    }
    #Radiation
    if(is.na(x$Radiation[j])) {
      sc = radiation_solarConstant(J)
      delta = radiation_solarDeclination(J)
      vpa = utils_averageDailyVP(tmin, tmax, rhmin, rhmax)
      r_s = radiation_solarRadiation(sc,latrad = latrad, elevation, slorad, asprad, delta, 
                                     diffTemp,diffTemp, vpa, precipitation)
      x$Radiation[j] = r_s
    } else {
      r_s = x$Radiation[j]
    }
    if(is.na(x$PET[j])) {
      x$PET[j] = penman(latrad, elevation, slorad, asprad, J, tmin, tmax, rhmin, rhmax, r_s, NA)
    }
  }
  return(x)
}