DataAltiExtrapolation_Valery.R 18.62 KiB
DataAltiExtrapolation_Valery <- function(DatesR,
                                         Precip,  PrecipScale = TRUE,
                                         TempMean, TempMin = NULL, TempMax = NULL,
                                         ZInputs,  HypsoData, NLayers,
                                         verbose = TRUE) {
    ##Altitudinal_gradient_functions_______________________________________________________________
    ##unique_gradient_for_precipitation
    GradP_Valery2010 <- function() {
      return(0.00041)  ### value from Valery PhD thesis page 126
    ##daily_gradients_for_mean_min_and_max_air_temperature
    GradT_Valery2010 <- function() {
      RESULT <- matrix(c(
      01, 01, 0.434, 0.366, 0.498,
      02, 01, 0.434, 0.366, 0.500,
      03, 01, 0.435, 0.367, 0.501,
      04, 01, 0.436, 0.367, 0.503,
      05, 01, 0.437, 0.367, 0.504,
      06, 01, 0.439, 0.367, 0.506,
      07, 01, 0.440, 0.367, 0.508,
      08, 01, 0.441, 0.368, 0.510,
      09, 01, 0.442, 0.368, 0.512,
      10, 01, 0.444, 0.368, 0.514,
      11, 01, 0.445, 0.368, 0.517,
      12, 01, 0.446, 0.368, 0.519,
      13, 01, 0.448, 0.369, 0.522,
      14, 01, 0.450, 0.369, 0.525,
      15, 01, 0.451, 0.369, 0.527,
      16, 01, 0.453, 0.370, 0.530,
      17, 01, 0.455, 0.370, 0.533,
      18, 01, 0.456, 0.370, 0.537,
      19, 01, 0.458, 0.371, 0.540,
      20, 01, 0.460, 0.371, 0.543,
      21, 01, 0.462, 0.371, 0.547,
      22, 01, 0.464, 0.372, 0.550,
      23, 01, 0.466, 0.372, 0.554,
      24, 01, 0.468, 0.373, 0.558,
      25, 01, 0.470, 0.373, 0.561,
      26, 01, 0.472, 0.374, 0.565,
      27, 01, 0.474, 0.374, 0.569,
      28, 01, 0.476, 0.375, 0.573,
      29, 01, 0.478, 0.375, 0.577,
      30, 01, 0.480, 0.376, 0.582,
      31, 01, 0.483, 0.376, 0.586,
      01, 02, 0.485, 0.377, 0.590,
      02, 02, 0.487, 0.377, 0.594,
      03, 02, 0.489, 0.378, 0.599,
      04, 02, 0.492, 0.379, 0.603,
      05, 02, 0.494, 0.379, 0.607,
      06, 02, 0.496, 0.380, 0.612,
      07, 02, 0.498, 0.381, 0.616,
      08, 02, 0.501, 0.381, 0.621,
      09, 02, 0.503, 0.382, 0.625,
      10, 02, 0.505, 0.383, 0.630,
      11, 02, 0.508, 0.384, 0.634,
      12, 02, 0.510, 0.384, 0.639,
      13, 02, 0.512, 0.385, 0.643,
      14, 02, 0.515, 0.386, 0.648,
      15, 02, 0.517, 0.387, 0.652,
      16, 02, 0.519, 0.387, 0.657,
      17, 02, 0.522, 0.388, 0.661,
      18, 02, 0.524, 0.389, 0.666,
      19, 02, 0.526, 0.390, 0.670,
      20, 02, 0.528, 0.391, 0.674,
      21, 02, 0.530, 0.392, 0.679,
      22, 02, 0.533, 0.393, 0.683,
      23, 02, 0.535, 0.393, 0.687,
      24, 02, 0.537, 0.394, 0.691,
      25, 02, 0.539, 0.395, 0.695,
7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
26, 02, 0.541, 0.396, 0.699, 27, 02, 0.543, 0.397, 0.703, 28, 02, 0.545, 0.398, 0.707, 29, 02, 0.546, 0.399, 0.709, 01, 03, 0.547, 0.399, 0.711, 02, 03, 0.549, 0.400, 0.715, 03, 03, 0.551, 0.401, 0.718, 04, 03, 0.553, 0.402, 0.722, 05, 03, 0.555, 0.403, 0.726, 06, 03, 0.557, 0.404, 0.729, 07, 03, 0.559, 0.405, 0.732, 08, 03, 0.560, 0.406, 0.736, 09, 03, 0.562, 0.406, 0.739, 10, 03, 0.564, 0.407, 0.742, 11, 03, 0.566, 0.408, 0.745, 12, 03, 0.567, 0.409, 0.748, 13, 03, 0.569, 0.410, 0.750, 14, 03, 0.570, 0.411, 0.753, 15, 03, 0.572, 0.412, 0.756, 16, 03, 0.573, 0.413, 0.758, 17, 03, 0.575, 0.414, 0.761, 18, 03, 0.576, 0.415, 0.763, 19, 03, 0.577, 0.416, 0.765, 20, 03, 0.579, 0.417, 0.767, 21, 03, 0.580, 0.417, 0.769, 22, 03, 0.581, 0.418, 0.771, 23, 03, 0.582, 0.419, 0.773, 24, 03, 0.583, 0.420, 0.774, 25, 03, 0.584, 0.421, 0.776, 26, 03, 0.585, 0.422, 0.777, 27, 03, 0.586, 0.422, 0.779, 28, 03, 0.587, 0.423, 0.780, 29, 03, 0.588, 0.424, 0.781, 30, 03, 0.589, 0.425, 0.782, 31, 03, 0.590, 0.425, 0.783, 01, 04, 0.591, 0.426, 0.784, 02, 04, 0.591, 0.427, 0.785, 03, 04, 0.592, 0.427, 0.785, 04, 04, 0.593, 0.428, 0.786, 05, 04, 0.593, 0.429, 0.787, 06, 04, 0.594, 0.429, 0.787, 07, 04, 0.595, 0.430, 0.787, 08, 04, 0.595, 0.431, 0.788, 09, 04, 0.596, 0.431, 0.788, 10, 04, 0.596, 0.432, 0.788, 11, 04, 0.597, 0.432, 0.788, 12, 04, 0.597, 0.433, 0.788, 13, 04, 0.597, 0.433, 0.788, 14, 04, 0.598, 0.434, 0.788, 15, 04, 0.598, 0.434, 0.788, 16, 04, 0.598, 0.435, 0.787, 17, 04, 0.599, 0.435, 0.787, 18, 04, 0.599, 0.436, 0.787, 19, 04, 0.599, 0.436, 0.786, 20, 04, 0.599, 0.436, 0.786, 21, 04, 0.600, 0.437, 0.785, 22, 04, 0.600, 0.437, 0.785, 23, 04, 0.600, 0.437, 0.784, 24, 04, 0.600, 0.438, 0.784, 25, 04, 0.600, 0.438, 0.783, 26, 04, 0.601, 0.438, 0.783, 27, 04, 0.601, 0.438, 0.782, 28, 04, 0.601, 0.439, 0.781, 29, 04, 0.601, 0.439, 0.781, 30, 04, 0.601, 0.439, 0.780, 01, 05, 0.601, 0.439, 0.779, 02, 05, 0.601, 0.439, 0.778, 03, 05, 0.601, 0.439, 0.778, 04, 05, 0.601, 0.440, 0.777, 05, 05, 0.601, 0.440, 0.776,