DataAltiExtrapolation_Valery.R

DataAltiExtrapolation_Valery <- function(DatesR,Precip,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 Val? PhD thesis page 126
      }
      ##daily_gradients_for_mean_min_and_max_air_temperature
      GradT_Valery2010 <- function(){ 
        RESULT <- matrix(c(
               1,  1, 0.434, 0.366, 0.498,
               2,  1, 0.434, 0.366, 0.500,
               3,  1, 0.435, 0.367, 0.501,
               4,  1, 0.436, 0.367, 0.503,
               5,  1, 0.437, 0.367, 0.504,
               6,  1, 0.439, 0.367, 0.506,
               7,  1, 0.440, 0.367, 0.508,
               8,  1, 0.441, 0.368, 0.510,
               9,  1, 0.442, 0.368, 0.512,
              10,  1, 0.444, 0.368, 0.514,
              11,  1, 0.445, 0.368, 0.517,
              12,  1, 0.446, 0.368, 0.519,
              13,  1, 0.448, 0.369, 0.522,
              14,  1, 0.450, 0.369, 0.525,
              15,  1, 0.451, 0.369, 0.527,
              16,  1, 0.453, 0.370, 0.530,
              17,  1, 0.455, 0.370, 0.533,
              18,  1, 0.456, 0.370, 0.537,
              19,  1, 0.458, 0.371, 0.540,
              20,  1, 0.460, 0.371, 0.543,
              21,  1, 0.462, 0.371, 0.547,
              22,  1, 0.464, 0.372, 0.550,
              23,  1, 0.466, 0.372, 0.554,
              24,  1, 0.468, 0.373, 0.558,
              25,  1, 0.470, 0.373, 0.561,
              26,  1, 0.472, 0.374, 0.565,
              27,  1, 0.474, 0.374, 0.569,
              28,  1, 0.476, 0.375, 0.573,
              29,  1, 0.478, 0.375, 0.577,
              30,  1, 0.480, 0.376, 0.582,
              31,  1, 0.483, 0.376, 0.586,
               1,  2, 0.485, 0.377, 0.590,
               2,  2, 0.487, 0.377, 0.594,
               3,  2, 0.489, 0.378, 0.599,
               4,  2, 0.492, 0.379, 0.603,
               5,  2, 0.494, 0.379, 0.607,
               6,  2, 0.496, 0.380, 0.612,
               7,  2, 0.498, 0.381, 0.616,
               8,  2, 0.501, 0.381, 0.621,
               9,  2, 0.503, 0.382, 0.625,
              10,  2, 0.505, 0.383, 0.630,
              11,  2, 0.508, 0.384, 0.634,
              12,  2, 0.510, 0.384, 0.639,
              13,  2, 0.512, 0.385, 0.643,
              14,  2, 0.515, 0.386, 0.648,
              15,  2, 0.517, 0.387, 0.652,
              16,  2, 0.519, 0.387, 0.657,
              17,  2, 0.522, 0.388, 0.661,
              18,  2, 0.524, 0.389, 0.666,
              19,  2, 0.526, 0.390, 0.670,
              20,  2, 0.528, 0.391, 0.674,
              21,  2, 0.530, 0.392, 0.679,
              22,  2, 0.533, 0.393, 0.683,
              23,  2, 0.535, 0.393, 0.687,
              24,  2, 0.537, 0.394, 0.691,
              25,  2, 0.539, 0.395, 0.695,
              26,  2, 0.541, 0.396, 0.699,
              27,  2, 0.543, 0.397, 0.703,
              28,  2, 0.545, 0.398, 0.707,