Le nouveau rapport du Groupe d’experts intergouvernemental surl’évolution du climat (GIEC) vientd’être publié, annonçant les dernières tendances climatiques globalessimulées par la dernière version de plusieurs modèles climatiques.
Vos collègues climatologues ont appliqué plusieurs méthodes dedescente d’échelle avec pour objectif de transformer les projectionsclimatiques globales à large échelle proposées par le GIEC, à uneéchelle spatiale compatible avec une analyse hydrologique à l’échelle devotre bassin versant, La Durance à Embrun [La Clapière] - DREAL PACA.Vous suivrez la méthodologie appliquée par
Vous êtes chargé.es de quantifier l’impact de ces changementsclimatiques sur le régime des débits de La Durance à Embrun [LaClapière] - DREAL PACA à partir des résultats de vos collèguesclimatologues et grâce à une modélisation pluie-débit (cf. figuresuivante).
Ce travail sera réalisé en quatre étapes :
| Jan | Feb | Mar | Apr | May | Jun | Jul | Aug | Sep | Oct | Nov | Dec | |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Temp. scenario 1 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 | 1.5 |
| Temp. scenario 2 | 2.5 | 2.5 | 3.0 | 3.0 | 3.5 | 4.0 | 4.0 | 3.5 | 3.0 | 3.0 | 2.5 | 2.5 |
| Temp. scenario 3 | 3.5 | 3.5 | 4.0 | 4.5 | 5.0 | 6.0 | 6.0 | 5.0 | 4.5 | 4.0 | 3.5 | 3.5 |
| Jan | Feb | Mar | Apr | May | Jun | Jul | Aug | Sep | Oct | Nov | Dec | |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Precip. scenario 1 | 10 | 10 | 5 | 0 | -5 | -10 | -10 | -5 | 0 | 5 | 10 | 10 |
| Precip. scenario 2 | 15 | 15 | 7 | 0 | -7 | -15 | -15 | -7 | 0 | 7 | 25 | 20 |
| Precip. scenario 3 | 20 | 15 | 10 | 0 | -15 | -30 | -30 | -15 | 0 | 20 | 40 | 30 |

Cette section vise à expliciter certaines tâches attendues et àdécrire les conditions de calage et de simulation (période de calage desparamètres, périodes d’initialisation des réservoirs, critère de calage,etc.).
Le régime des débits correspond à leurs variations moyennes au coursd’une année. Ici, il est décrit par la série des 12 débits moyensmensuels, estimés sur l’ensemble des années disponibles. Le débit moyenmensuel du mois de janvier est donc calculé en faisant la moyenne desdébits de janvier des différentes années disponibles. L’année moyenneainsi constituée résume le fonctionnement hydrologique du bassin étudiésur une période donnée et permet de distinguer des saisons de basseseaux et de hautes eaux. Dans un contexte de changement climatique,l’analyse de l’évolution du régime permet de quantifier d’éventuelschangements saisonniers des débits, que ce soit en termes d’amplitude oude dynamique temporelle (par exemple liés à des évolutions dans la fontede la neige).
Ici, nous ne disposons pas de séries climatiques mensuelles pour lapériode future, il est donc nécessaire de faire des hypothèses fortespour simuler le régime futur du bassin étudié. Une approche pragmatiquesuggérée dans cet exercice est d’appliquer les changements mensuels deprécipitations et de températures de l’air données par les climatologuesaux séries temporelles observées sur la période de climat présent.Ainsi, l’augmentation moyenne des précipitations de janvier de 10 %prévue par le scénario 1 est considérée comme systématique pour tous lesmois de janvier futurs.
Pour appliquer les évolutions mensuelles aux séries journalières, uneapproche consiste à interpoler au pas de temps journalier les deltasmensuels, en attribuant leur valeur au 15 de chaque mois. Cette approchepermet d’estimer, pour chaque scénario et chaque variable, une valeur dedelta pour chaque jour julien.
Une série de précipitations “futures” journalières peut alors êtreconstituée en multipliant les précipitations journalières observées parle delta estimé pour chaque jour julien.
Les séries d’évapotranspiration potentielle, nécéssaires aufonctionnement du modèle hydrologique utilisé, seront estimées à partirde la formule développée parOudin et al.(2005), grâce à la fonctionPE_Oudin() du package).
Vous utiliserez ici le modèle GR4J(Perrin,Michel, and Andréassian 2003) associé au module de neigeCemaNeige(Valéry, Andréassian, and Perrin2014).
GR4J est un modèle pluie-débit conceptuel et global, fonctionnant aupas de temps journalier et possédant 4 paramètres. Il nécessite enentrée des séries temporelles continues de précipitations etd’évapotranspirations potentielles (ETP) journalières.
Le module d’accumulation et de fonte de la neige CemaNeige fonctionneégalement au pas de temps journalier, et necéssite en entrée unedistribution de l’altitude du bassin versant étudié, ainsi que de sériestemporelles décrivant la température de l’air au sein du bassinversant.
Ces modèles sont utilisables facilement grâce au package
Les séries temporelles de précipitations, de températures de l’air,d’ETP et de débits peuvent être facilement mises en forme grâce à lafonctionPrepGR(). On peut réaliser une simulationpluie-débit grâce à la fonctionSimGR() et un calage desparamètres grâce à la fonctionCalGR().
Dans cet exercice, la période d’initialisation commencera le 1janvier 1999 et s’achèvera le 31 août 2000, et la période de calagecommencera le 1 septembre 2000 et s’achèvera le 29 juin 2009 .
Le critère de calage considéré dans cet exercice est le critère deNash et Sutcliffe(Nash and Sutcliffe1970), noté\(NSE\) par la suite(cf. équation suivante). Ce critère est largement utilisé enmodélisation hydrologique.
Le critère NSE, borné entre
\[\begin{equation}NSE =1-\frac{\sum_{t=1}^{n}(Q_{obs,t}-Q_{sim,t})^{2}}{\sum_{t=1}^{n}(Q_{obs,t}-\overline{Q_{obs}})^{2}}\end{equation}\]
Les différents éléments nécessaires pour le calcul du critère decalage doivent être renseignés en argument de la fonctionCalGR().
Le calage automatique de paramètres vise à utiliser un algorithmeautomatique de recherche dans l’espace des paramètres, d’un optimum dela fonction objectif choisie. Il va générer automatiquement des jeux deparamètres, les tester, et en générer d’autres en fonction desperformances de ceux d’ores et déjà testés. L’algorithme développé parMichel (1991) sera utilisé dans cetexercice.
Les paramètres obtenus après calage seront ensuite utilisés pourréaliser les simulations pluie-débit des périodes de climat présent etde climat futur.
Les données disponibles pour la modélisation pluie-débit sont lessuivantes :
Ptot);Temp);Evap);Qmmd);Hypso).Vous disposez également des tableaux des changements mensuels moyensestimés par vos collègues climatologues présentés en introduction.
Les lignes de codes présentées ci-après permettent de lire lesdonnées nécessaires au calage du modèle pluie-débit GR4J et de définirles périodes temporelles de travail (période d’initialisation, périodede calage et période de simulation) :
# Catchment data loadinglibrary(airGRdatasets)data("X031001001",package ="airGRdatasets")# Observed daily time seriests_obs<- X031001001$TS# Latitude of the catchment outletlat<- X031001001$Meta$Coor$Y# Catchment elevation distributionhypso<- X031001001$Hypso# Warm-up periodper_ini<-c("1999-01-01","2000-08-31")# Calibration periodper_cal<-c("2000-09-01","2009-06-29")
# Data processing for GR4Jprep_hist<-PrepGR(DatesR = ts_obs$Date,Precip = ts_obs$Ptot,PotEvap = ts_obs$Evap,TempMean = ts_obs$Temp,ZInputs = hypso[51],HypsoData = hypso,Qobs = ts_obs$Qmmd,HydroModel ="GR4J",CemaNeige =TRUE)# Calibration stepcal_hist<-CalGR(PrepGR = prep_hist,CalCrit ="NSE",WupPer = per_ini,CalPer = per_cal,verbose =TRUE)## Grid-Screening in progress (0% 20% 40% 60% 80% 100%)## Screening completed (729 runs)## Param = 432.681, -0.649, 83.096, 2.384, 0.705, 3.787## Crit. NSE[Q] = 0.7956## Steepest-descent local search in progress## Calibration completed (41 iterations, 1196 runs)## Param = 482.992, 0.601, 275.889, 1.369, 0.333, 3.942## Crit. NSE[Q] = 0.9075## NSE[Q] ## 0.9075081
# Combination of observed and simulated streamflow time seriests_qhist<-as.data.frame(cal_hist)ts_qhist<- ts_qhist[,c("Dates","Qobs","Qsim")]Les lignes de codes présentées ci-après permettent de calculer lesrégimes observés et simulés des débits aux pas de temps journaliers etmensuels.
# Daily regimesreg_hist_d<-SeriesAggreg(ts_qhist,Format ="%d",ConvertFun =c("mean","mean"))is_feb29<-format(x = reg_d$Date,format ="%m-%d")=="02-29"reg_hist_d<- reg_d[!is_feb29, ]# Monthly regimesreg_hist_m<-SeriesAggreg(ts_qhist,Format ="%m",ConvertFun =c("sum","sum"))# Calculated regimesreg_hist_m## Dates Qobs Qsim## 2270 2000-09-01 339.939 342.9322## 2545 2000-10-01 376.967 424.5159## 2856 2000-11-01 317.624 413.6535## 3165 2000-12-01 241.390 312.4544## 2 2001-01-01 219.614 248.8342## 423 2001-02-01 166.271 192.1759## 717 2001-03-01 291.193 286.5678## 1068 2001-04-01 471.410 370.3787## 1221 2001-05-01 1209.560 1104.5823## 1537 2001-06-01 1174.049 1112.9204## 1807 2001-07-01 554.163 509.9024## 2076 2001-08-01 369.629 326.5216Les régimes ainsi calculés peuvent être représentés graphiquement(cf. figure suivante). La comparaison des deux régimes permet d’évaluerla capacité du modèle pluie-débit (ici GR4J et CemaNeige) à reproduirele régime du bassin étudié.

Les lignes de codes présentées ci-après permettent de générer desséries climatiques (ETP, T et P) sur la période de “climat futur” enutilisant les séries observées sur la période de “climat présent” et enles transformant à partir des changements climatiques estimés par lesclimatologues.
# Delta of temperature (assigned on the 15th of each month)delta_temp<-data.frame(Month =sprintf("%02i-15",1:12),Tscen1 =rep(1.5,12),Tscen2 =c(2.5,2.5,3.0,3.0,3.5,4.0,4.0,3.5,3.0,3.0,2.5,2.5),Tscen3 =c(3.5,3.5,4.0,4.5,5.0,6.0,6.0,5.0,4.5,4.0,3.5,3.5))# Delta of precipitation (assigned on the 15th of each month)delta_ptot<-data.frame(Month =sprintf("%02i-15",1:12),Pscen1 =c(+10,+10,+05,0,-05,-10,-10,-05,0,+05,+10,+10),Pscen2 =c(+15,+15,+07,0,-07,-15,-15,-07,0,+07,+25,+20),Pscen3 =c(+20,+15,+10,0,-15,-30,-30,-15,0,+20,+40,+30))# Time series with additional date informationts_cc<-data.frame(Dates = ts_obs$Date)ts_cc$Month<-format(x = ts_cc$Date,format ="%m-%d")# Delta of temperature and precipitation in the same tabledelta_cc<-merge(delta_temp, delta_ptot,by ="Month",all =TRUE)# Merging the complete time series and the delta tablets_cc<-merge(ts_cc, delta_cc,by ="Month",all =TRUE)ts_cc<- ts_cc[order(ts_cc$Dates), ]# Sub-setting of the time series with the dates available in the delta tablets_cc_15<-na.omit(ts_cc)# Constitution of "future climate" time seriests_clim_cc<-sapply(grep("scen",colnames(ts_cc_15),value =TRUE),FUN =function(i) {# Daily delta interpolation (between the 15th of each month) i_interpol<-approx(x = ts_cc_15$Dates,y = ts_cc_15[, i],xout = ts_cc$Dates,rule =2)$yif (grepl("T", i)) { ts_obs$Temp+ i_interpol }else { ts_obs$Ptot* (1+ i_interpol/100) }})ts_clim_cc<-as.data.frame(ts_clim_cc)# Summary of the "future climate" time seriessummary(ts_clim_cc)## Tscen1 Tscen2 Tscen3 Pscen1 Pscen2 ## Min. :-15.200 Min. :-14.200 Min. :-13.200 Min. : 0.00000 Min. : 0.00000 ## 1st Qu.: -0.200 1st Qu.: 1.000 1st Qu.: 2.061 1st Qu.: 0.00000 1st Qu.: 0.00000 ## Median : 4.800 Median : 6.333 Median : 7.567 Median : 0.09833 Median : 0.09767 ## Mean : 4.812 Mean : 6.396 Mean : 7.731 Mean : 2.85887 Mean : 2.93352 ## 3rd Qu.: 10.200 3rd Qu.: 12.200 3rd Qu.: 13.783 3rd Qu.: 2.27613 3rd Qu.: 2.30533 ## Max. : 20.700 Max. : 23.200 Max. : 25.200 Max. :95.56339 Max. :104.73519 ## Pscen3 ## Min. : 0.000 ## 1st Qu.: 0.000 ## Median : 0.095 ## Mean : 2.964 ## 3rd Qu.: 2.201 ## Max. :117.354# PE calculationts_clim_cc$Julian<-as.numeric(x =format(x = ts_cc$Date,format ="%j"))ts_clim_cc$Escen1<-PE_Oudin(JD = ts_clim_cc$Julian,Temp = ts_clim_cc$Tscen1,Lat = lat,LatUnit ="deg")ts_clim_cc$Escen2<-PE_Oudin(JD = ts_clim_cc$Julian,Temp = ts_clim_cc$Tscen2,Lat = lat,LatUnit ="deg")ts_clim_cc$Escen3<-PE_Oudin(JD = ts_clim_cc$Julian,Temp = ts_clim_cc$Tscen3,Lat = lat,LatUnit ="deg")Les lignes de codes présentées ci-après permettent de réaliser unesimulation pluie-débit de la période de “climat futur” à partir desséries climatiques générées dans la section précédente.
# Loop on the three scenariosts_qcc<-list()for (iin1:3) { i_col_P<-paste0("Pscen", i) i_col_E<-paste0("Escen", i) i_col_T<-paste0("Tscen", i) i_col_Q<-paste0("Qscen", i)# Data processing for GR4J i_prep_cc<-PrepGR(DatesR = ts_cc$Date,Precip = ts_clim_cc[, i_col_P],PotEvap = ts_clim_cc[, i_col_E],TempMean = ts_clim_cc[, i_col_T],ZInputs = hypso[51],HypsoData = hypso,HydroModel ="GR4J",CemaNeige =TRUE)# Simulation step i_sim_cc<-SimGR(PrepGR = i_prep_cc,WupPer = per_ini,SimPer = per_cal,Param = param_cal_hist,verbose =FALSE)# Storage of observed and simulated streamflow series i_ts_cc_15<-as.data.frame(i_sim_cc) ts_qcc[[i_col_Q]]<- i_ts_cc_15$Qsim}# Combine historical and future time seriests_q<-cbind(ts_qhist,as.data.frame(ts_qcc))Les lignes de codes présentées ci-après permettent de calculer lerégime des débits simulés sur la période de climat futur.
# Daily regimesreg_cc_d<-SeriesAggreg(ts_q,Format ="%d",ConvertFun =rep("mean",5))is_feb29<-format(x = reg_cc_d$Dates,format ="%m-%d")=="02-29"reg_cc_d<- reg_cc_d[!is_feb29, ]# Monthly regimesreg_cc_m<-SeriesAggreg(ts_q,Format ="%m",ConvertFun =rep("sum",5))# Calculated regimesreg_cc_m## Dates Qobs Qsim Qscen1 Qscen2 Qscen3## 2270 2000-09-01 339.939 342.9322 256.0630 185.7943 129.2014## 2545 2000-10-01 376.967 424.5159 378.8893 311.4428 263.4452## 2856 2000-11-01 317.624 413.6535 488.4572 546.3996 640.1677## 3165 2000-12-01 241.390 312.4544 409.2737 490.5027 583.0666## 2 2001-01-01 219.614 248.8342 343.7781 429.3201 533.9006## 423 2001-02-01 166.271 192.1759 262.7620 322.5987 384.7521## 717 2001-03-01 291.193 286.5678 436.3709 583.8233 668.3347## 1068 2001-04-01 471.410 370.3787 536.1424 667.8721 704.6265## 1221 2001-05-01 1209.560 1104.5823 1049.0074 869.3730 644.5160## 1537 2001-06-01 1174.049 1112.9204 771.4922 527.6899 365.9184## 1807 2001-07-01 554.163 509.9024 327.4281 230.6258 165.8818## 2076 2001-08-01 369.629 326.5216 226.2868 159.2173 111.6768Ce régime “futur” peut être comparé graphiquement avec les régimes dedébits simulés sur la période de climat présent (cf. figure suivante).Cette comparaison révèle une diminution des débits, diminutionparticulièrement durant le printemps et l’été (de mai à août).

Les évolutions sont plus marquées au pas de temps journalier(cf. figure suivante).

Il est important d’analyser les résultats obtenus au regard desnombreuses incertitudes liées à la production de simulations d’impactshydrologiques du changement climatique. Les incertitudes liées àl’utilisation de différents modèles climatiques et de différentesméthodes de descente d’échelle peuvent être très fortes. De plus,l’utilisation des paramètres d’un modèle hydrologique obtenu aprèscalage sur un bassin versant sous un climat A pour simuler la réponsehydrologique à un climat B de ce même bassin versant peut égalementengendrer des incertitudes fortes(e.g. Coron etal. 2012; Brigode, Oudin, and Perrin 2013).