Commit 800003ec authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

Purge et départ sur la version 0.7.4


Signed-off-by: Delaigue Olivier's avatarOlivier Delaigue <olivier.delaigue@irstea.fr>
Showing with 155 additions and 396 deletions
+155 -396
DIR_WD <- "C:/Data/Hydrologie/Codes/airGR_dev/airGR_dev_0.7/";
DIR_EXPORT_RDA <- paste(DIR_WD,"files_data/",sep="");
DIR_EXPORT_TXT <- paste(DIR_WD,"files_misc/airGR_AdvancedExample/Test_DataInput/",sep="");
### DIR_DATA_INPUT_FR <- "C:/Data/Hydrologie/BD/BD_FR_IRSTEA2010/BD_BASSINS/";
DIR_DATA_INPUT_FR <- paste(DIR_WD,"tmp_data_input_DO_NOT_CIRCULATE/",sep="");
### DIR_DATA_INPUT_US <- "C:/Data/Hydrologie/BD/BD_US_MOPEX/BD_MOPEX_430_DLY/";
DIR_DATA_INPUT_US <- paste(DIR_WD,"tmp_data_input_DO_NOT_CIRCULATE/",sep="");
ListBasinCode <- c("J4902010","13337000"); ListBasinDB <- c("FR","US"); LIST_TMP <- list();
### ListBasinCode <- c("J4902010","12358500"); ListBasinDB <- c("FR","US"); LIST_TMP <- list();
### ListBasinCode <- c("M3340910","12358500"); ListBasinDB <- c("FR","US"); LIST_TMP <- list();
for(iBasin in 1:length(ListBasinCode)){
##__IMPORT_________________________________________________________________________________####
BasinCode <- NULL; BasinName <- NULL; BasinArea_km2_NEW <- NULL; HypsoData <- NULL;
TabDatesT <- NULL; TabDatesR <- NULL; TabObsQls <- NULL; TabObsQmm <- NULL; TabObsP <- NULL; TabObsT <- NULL; TabObsE <- NULL;
if(ListBasinDB[iBasin]=="FR"){
BasinCode <- ListBasinCode[iBasin];
DIR_DATA_INPUT <- DIR_DATA_INPUT_FR;
BasinCharactFile <- paste(DIR_DATA_INPUT,"00_Liste_BV.txt",sep="");
HypsoDataFile <- paste(DIR_DATA_INPUT,"_HypsoData_Pierre.txt",sep="");
##File_check
DataImportFile <- paste(DIR_DATA_INPUT,BasinCode,"_BV.txt",sep="");
FileExists <- file.exists(DataImportFile); if(FileExists==FALSE){ print("Error: DataImportFile not found",quote=FALSE); stop("EXECUTION STOPPED",call.=FALSE); }
##_Basin_Characteristics
if(file.exists(BasinCharactFile)){
TAB_CHARACT <- read.csv2(file=BasinCharactFile,header=TRUE,skip=0,stringsAsFactors=FALSE);
IndBasin <- which(TAB_CHARACT$Code == BasinCode);
if(length(IndBasin)==1){
BasinName <- TAB_CHARACT$Nom[IndBasin];
BasinArea_km2 <- as.numeric(TAB_CHARACT$S_CEM[IndBasin]);
BasinArea_km2_NEW <- 10*round(BasinArea_km2/10);
rm(TAB_CHARACT); } ### memory clear
}
if(file.exists(HypsoDataFile)){
TAB_HYPSO <- read.csv2(file=HypsoDataFile,header=TRUE,skip=0,stringsAsFactors=FALSE);
iR <- which(formatC(TAB_HYPSO$CODE,format="d",width=8,flag="0")==BasinCode);
iC <- which(colnames(TAB_HYPSO)=="Zmin"):which(colnames(TAB_HYPSO)=="Zmax");
HypsoData <- as.numeric(TAB_HYPSO[iR,iC]); ### min, q01, q02, ... , q98, q99, max
rm(TAB_HYPSO); ### memory clear
}
##DataSeries
Format <- c("A8","X1","I8","X1","A5","X1","A7","X1","F5.0","X1","F5.0","X1","F5.0","X1","F5.0","X1","F5.0");
TAB_DATA <- read.fortran(file=DataImportFile,skip=51,header=FALSE,Format);
TabDatesT <- as.character(TAB_DATA[,1]);
TabDatesR <- as.POSIXlt(strptime(TAB_DATA[,1],format="%Y%m%d",tz="UTC"));
TabObsQls <- TAB_DATA[,2]; TabObsQls[TabObsQls<0] <- NA; ### observed runoff (in l/s)
TabObsQm3s <- TabObsQls/1000; ### observed runoff (in m3/s)
TabObsQmm <- TabObsQm3s*86.4/BasinArea_km2_NEW; ### observed runoff (in mm/d)
TabObsP <- TAB_DATA[,5]; ### precipitation (catchment average in mm)
TabObsT <- TAB_DATA[,7]; ### air temp (catchment average in degre C)
TabObsE <- TAB_DATA[,8]; ### potential evap (catchment average in mm/d)
rm(TAB_DATA); ### memory clear
}
if(ListBasinDB[iBasin]=="US"){
BasinCode <- ListBasinCode[iBasin];
DIR_DATA_INPUT <- DIR_DATA_INPUT_US;
BasinCharactFile <- paste(DIR_DATA_INPUT,"_List_US_416_LAURENT.txt",sep="");
HypsoDataFile <- paste(DIR_DATA_INPUT,"_HypsoData_431.txt",sep="");
##File_check
DataImportFile <- paste(DIR_DATA_INPUT,BasinCode,".dly",sep="");
FileExists <- file.exists(DataImportFile); if(FileExists==FALSE){ print("Error: DataImportFile not found",quote=FALSE); stop("EXECUTION STOPPED",call.=FALSE); }
##_Basin_Characteristics
if(file.exists(BasinCharactFile)){
TAB_CHARACT <- read.csv2(file=BasinCharactFile,header=TRUE,skip=0,stringsAsFactors=FALSE);
IndBasin <- which(formatC(TAB_CHARACT[,1],format="d",width=8,flag="0") == BasinCode);
if(length(IndBasin)==1){
BasinName <- TAB_CHARACT[IndBasin,11];
BasinArea_km2 <- as.numeric(TAB_CHARACT[IndBasin,10]);
BasinArea_km2_NEW <- 10*round(BasinArea_km2/10);
rm(TAB_CHARACT); } ### memory clear
}
if(file.exists(HypsoDataFile)){
TAB_HYPSO <- read.csv2(file=HypsoDataFile,header=TRUE,skip=0,stringsAsFactors=FALSE);
iR <- which(formatC(TAB_HYPSO$CODE,format="d",width=8,flag="0")==BasinCode);
iC <- which(colnames(TAB_HYPSO)=="Zmin"):which(colnames(TAB_HYPSO)=="Zmax");
HypsoData <- as.numeric(TAB_HYPSO[iR,iC]); ### min, q01, q02, ... , q98, q99, max
rm(TAB_HYPSO); ### memory clear
}
##DataSeries
Format <- c("A8","F10.0","F10.0","F10.0","F10.0","F10.0");
TAB_DATA <- read.fortran(file=DataImportFile,skip=0,header=FALSE,Format);
TabDatesT <- TAB_DATA[,1]; TabDatesT <- gsub(pattern=" ",replacement="0",TabDatesT);
TabDatesR <- as.POSIXlt(strptime(TabDatesT,format="%Y%m%d",tz="UTC"));
TabObsQmm <- as.numeric(TAB_DATA[,4]); TabObsQmm[TabObsQmm<0] <- NA; ### observed runoff (in mm)
TabObsQls <- TabObsQmm*BasinArea_km2_NEW/86.4*1000; ### observed runoff (in l/s)
TabObsP <- as.numeric(TAB_DATA[,2]); ### precipitation (catchment average in mm)
TabObsTmin <- as.numeric(TAB_DATA[,6]); ### air temp min (catchment average in degre C)
TabObsTmax <- as.numeric(TAB_DATA[,5]); ### air temp max (catchment average in degre C)
TabObsT <- (TabObsTmin+TabObsTmax)/2; ### air temp (catchment average in degre C)
TabObsE <- as.numeric(TAB_DATA[,3]); ### potential evap (catchment average in mm/d)
rm(TAB_DATA); ### memory clear
}
##__DATA_MODIF___and__BASINDATA_CREATION___________________________________________________####
##Name_changes_and_temporal_delay_to_mask_data_origin
if(iBasin==1){
BasinCode_NEW <- "L0123001";
BasinName_NEW <- "Banjo River at Paterson Creek";
Select_OLD <- which(TabDatesR==as.POSIXlt(strptime("01/01/1972",format="%d/%m/%Y",tz="UTC"))):which(TabDatesR==as.POSIXlt(strptime("31/12/2000",format="%d/%m/%Y",tz="UTC")));
}
if(iBasin==2){
BasinCode_NEW <- "L0123002";
BasinName_NEW <- "Snowy River at Orroral Valley Homestead";
Select_OLD <- which(TabDatesR==as.POSIXlt(strptime("01/01/1972",format="%d/%m/%Y",tz="UTC"))):which(TabDatesR==as.POSIXlt(strptime("31/12/2000",format="%d/%m/%Y",tz="UTC")));
}
TabDatesR_NEW <- as.POSIXlt(seq(from=as.POSIXlt(strptime("01/01/1984",format="%d/%m/%Y",tz="UTC")),to=as.POSIXlt(strptime("31/12/2012",format="%d/%m/%Y",tz="UTC")),by="days"));
if(identical(TabDatesR$mday[Select_OLD],TabDatesR_NEW$mday)==FALSE){ stop("STOP"); }
##BasinData
BasinData <- list();
BasinData$BasinCode <- BasinCode_NEW;
BasinData$BasinName <- BasinName_NEW;
BasinData$BasinArea_km2 <- BasinArea_km2_NEW;
BasinData$HypsoData <- HypsoData;
BasinData$TabDatesT <- format(TabDatesR_NEW,"%Y%m%d");
BasinData$TabDatesR <- TabDatesR_NEW;
BasinData$TabObsQls <- TabObsQls[Select_OLD];
BasinData$TabObsQmm <- TabObsQmm[Select_OLD];
BasinData$TabObsP <- TabObsP[Select_OLD];
BasinData$TabObsT <- TabObsT[Select_OLD];
BasinData$TabObsE <- TabObsE[Select_OLD];
##__SAVE___________________________________________________________________________________####
LIST_TMP[[iBasin]] <- BasinData;
}
##__EXPORT_________________________________________________________________________________####
for(iBasin in 1:length(ListBasinCode)){
BasinData <- LIST_TMP[[iBasin]];
##format_RData
FileExport_R <- paste(DIR_EXPORT_RDA,BasinData$BasinCode,".rda",sep="");
BasinInfo <- list(BasinCode=BasinData$BasinCode,BasinName=BasinData$BasinName,BasinArea=BasinData$BasinArea_km2,HypsoCurve=BasinData$HypsoData);
BasinObs <- data.frame(DatesR=BasinData$TabDatesR,
P=BasinData$TabObsP,T=BasinData$TabObsT,E=BasinData$TabObsE,
Qls=BasinData$TabObsQls,Qmm=BasinData$TabObsQmm)
save(BasinInfo,BasinObs,file=FileExport_R,compress="xz")
##format_CSV
FileExport_T <- paste(DIR_EXPORT_TXT,BasinData$BasinCode,".txt" ,sep="");
TabObsQls_TMP <- BasinData$TabObsQls; TabObsQls_TMP[is.na(TabObsQls_TMP)] <- (-9); TabObsQls_TMP <- round(TabObsQls_TMP);
TabObsQmm_TMP <- BasinData$TabObsQmm; TabObsQmm_TMP[is.na(TabObsQmm_TMP)] <- (-9);
MYSERIES <- data.frame(BasinData$TabDatesT,formatC(TabObsQls_TMP,format="d",width=8),formatC(cbind(TabObsQmm_TMP,BasinData$TabObsP,BasinData$TabObsT,BasinData$TabObsE),format="f",width=6,digits=2))
write.table(file=FileExport_T,"# -------------------------------------------------------",append=FALSE,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,paste("# Code ; ",BasinData$BasinCode ,sep="") ,append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,paste("# Name ; ",BasinData$BasinName ,sep="") ,append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,paste("# Area (km2) ; ",BasinData$BasinArea_km2,sep="") ,append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,"# Units ; YYYYMMDD ; l/s ; mm/d ; mm/d ; degC ; mm/d",append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,"# -------------------------------------------------------",append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T," Date; Q; Qmm; Ptot; Temp; PE" ,append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
write.table(file=FileExport_T,MYSERIES ,sep=";" ,append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE)
}
FileExport_T <- paste(DIR_EXPORT_TXT,"List_HypsoData",".txt" ,sep="");
write.table(file=FileExport_T,paste(" CODE Zmin",paste(" Z",formatC(1:99,width=2,flag="0"),collapse="",sep="")," Zmax",sep="") ,append=FALSE,col.names=FALSE,row.names=FALSE,quote=FALSE)
for(iBasin in 1:length(ListBasinCode)){
write.table(file=FileExport_T,paste(LIST_TMP[[iBasin]]$BasinCode,paste(formatC(LIST_TMP[[iBasin]]$HypsoData,format="f",width=5,digits=0),collapse="",sep=""),sep=""),append=TRUE ,col.names=FALSE,row.names=FALSE,quote=FALSE); }
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR.Rcheck"
:: rd %DIR1% /s /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\src-i386"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\src-x64"
rd %DIR1% /s /q
rd %DIR2% /s /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\data\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\inst\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\man\"
SET DIR4="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\R\"
SET DIR5="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\src\"
SET DIR6="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\tests\"
DEL %DIR1%*.* /q
DEL %DIR2%*.* /q
DEL %DIR3%*.* /q
DEL %DIR4%*.* /q
DEL %DIR5%*.* /q
DEL %DIR6%*.* /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_data"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\data"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_R"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\R"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_src"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\src"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_tests"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\tests"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\"
SET FIL1="DESCRIPTION"
SET FIL2="DESCRIPTION"
COPY %DIR1%%FIL1% %DIR2%%FIL2% /Y
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR_package\man\"
SET FIL1="airGR-package.Rd"
SET FIL2="airGR-package.Rd"
COPY %DIR1%%FIL1% %DIR2%%FIL2% /Y
::-----------------------------------------------------------------------------
:: pause
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR.Rcheck"
:: rd %DIR1% /s /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\src-i386"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\src-x64"
rd %DIR1% /s /q
rd %DIR2% /s /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\data\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\inst\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\man\"
SET DIR4="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\R\"
SET DIR5="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\src\"
SET DIR6="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\tests\"
DEL %DIR1%*.* /q
DEL %DIR2%*.* /q
DEL %DIR3%*.* /q
DEL %DIR4%*.* /q
DEL %DIR5%*.* /q
DEL %DIR6%*.* /q
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_data"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\data"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_R"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\R"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_src"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\src"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_tests"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\tests"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_R_PLUS"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\R"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_src_PLUS"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\src"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_tests_PLUS"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\tests"
..\..\robocopy.exe %DIR1% %DIR2% /E /TEE
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\"
SET FIL1="DESCRIPTION_PLUS"
SET FIL2="DESCRIPTION"
COPY %DIR1%%FIL1% %DIR2%%FIL2% /Y
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR_package\man\"
SET FIL1="airGR-package.Rd"
SET FIL2="airGR-package.Rd"
COPY %DIR1%%FIL1% %DIR2%%FIL2% /Y
::-----------------------------------------------------------------------------
:: pause
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\"
SET FIL0="ReadMe.txt"
COPY %DIR1%%FIL0% %DIR2%%FIL0% /Y
COPY %DIR1%%FIL0% %DIR3%%FIL0% /Y
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\"
SET FIL0="ReleaseNotes.txt"
COPY %DIR1%%FIL0% %DIR2%%FIL0% /Y
COPY %DIR1%%FIL0% %DIR3%%FIL0% /Y
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\airGR.Rcheck\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET FIL0="airGR-manual.pdf"
COPY %DIR1%%FIL0% %DIR2%%FIL0% /Y
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\airGR.Rcheck\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\"
SET FIL0="airGR-manual.pdf"
COPY %DIR1%%FIL0% %DIR2%%FIL0% /Y
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\"
SET FIL1="14-07-09 airGR_0.7 Description_FR.pdf"
SET FIL2="airGR-description-complement-FR.pdf"
COPY %DIR1%%FIL1% %DIR2%%FIL2% /Y
COPY %DIR1%%FIL1% %DIR3%%FIL2% /Y
::-----------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2\files_misc\"
SET DIR2="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET DIR3="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS\"
SET FIL0="airGR_AdvancedExample.zip"
COPY %DIR1%%FIL0% %DIR2%%FIL0% /Y
COPY %DIR1%%FIL0% %DIR3%%FIL0% /Y
::-----------------------------------------------------------------------------
:: pause
@echo off
echo - -
echo ---------------------------------------------------------
echo - Copie miroir de repertoires avec ROBOCOPY -
echo ---------------------------------------------------------
echo - -
echo - ATTENTION : Ecrasement des fichiers -
echo - -
:: pause
:: pause
:: :: ------------------------------------------------------------------------------
:: SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.6.2"
:: SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\Codes\airGR_0.6.2"
:: ..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE /LOG:%DIR_EXE%MIRROR_COPY_A_B.log
:: :: ------------------------------------------------------------------------------
:: SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.6.2\airGR_0.6_GettingStarted"
:: SET SORTIE="C:\Data\MyWorkingDir\airGR_0.6_GettingStarted"
:: ..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE /LOG:%DIR_EXE%MIRROR_COPY_A_B.log
:: :: ------------------------------------------------------------------------------
:: SET ENTREE="C:\Data\MyWorkingDir\airGR_0.6_GettingStarted\Package_Install_Zip"
:: SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\Partage\laurent.coron\airGR_GettingStarted\Package_Install_Zip"
:: ..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE /LOG:%DIR_EXE%MIRROR_COPY_A_B.log
:: :: ------------------------------------------------------------------------------
:: SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.1"
:: SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\Codes\airGR_0.7.1"
:: ..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE
:: :: ------------------------------------------------------------------------------
:: ------------------------------------------------------------------------------
SET DIR1="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2\"
SET DIR2="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\airGR\"
SET FIL1="airGR_0.7.2.tar.gz"
SET FIL2="airGR_0.7.2.zip"
SET FIL3="airGR_AdvancedExample.zip"
SET FIL4="airGR-description-complement-FR.pdf"
SET FIL5="airGR-manual.pdf"
SET FIL6="ReadMe.txt"
SET FIL7="ReleaseNotes.txt"
COPY %DIR1%%FIL1% %DIR2%%FIL1%
COPY %DIR1%%FIL2% %DIR2%%FIL2%
COPY %DIR1%%FIL3% %DIR2%%FIL3%
COPY %DIR1%%FIL4% %DIR2%%FIL4%
COPY %DIR1%%FIL5% %DIR2%%FIL5%
COPY %DIR1%%FIL6% %DIR2%%FIL6%
COPY %DIR1%%FIL7% %DIR2%%FIL7%
:: ------------------------------------------------------------------------------
SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2"
SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\Codes\airGR_0.7.2"
..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE
:: ------------------------------------------------------------------------------
SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_0.7.2_PLUS"
SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\Codes\airGR_0.7.2_PLUS"
..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE
:: ------------------------------------------------------------------------------
SET ENTREE="C:\Data\Hydrologie\Codes\airGR_dev\airGR_dev_0.7.2"
SET SORTIE="\\anasdata.cemagref.fr\Projets\hban\partage\laurent.coron\Codes\airGR_dev_0.7.2"
..\..\robocopy.exe %ENTREE% %SORTIE% /MIR /XO /R:2 /TEE
:: ------------------------------------------------------------------------------
DESCRIPTION 0 → 100644
Package: airGR
Type: Package
Title: Modelling tools used at Irstea-HBAN (France), including GR4J,
GR5J, GR6J and CemaNeige
Version: 0.7.4
Date: 2014-11-01
Author: Laurent CORON
Maintainer: Laurent CORON <laurent.coron@irstea.fr>, Olivier DELAIGUE
<olivier.delaigue@irstea.fr>
Depends: R (>= 3.0.1)
Description: This package brings into R the hydrological modelling tools used
at Irstea-HBAN (France). The package includes several conceptual
rainfall-runoff models and the associated functions for their calibration
and evaluation,including GR4J, GR5J, GR6J and CemaNeige. Use help(airGR)
for package description.
License: GPL-2
Built: R 3.0.2; i386-w64-mingw32; 2014-11-25 22:06:41 UTC; windows
Archs: i386
INDEX 0 → 100644
BasinInfo Data sample: characteristics of a fictional
catchment (L0123001, L0123002 or L0123003)
BasinObs Data sample: time series of observations of a
fictional catchment (L0123001, L0123002 or
L0123003)
Calibration Calibration algorithm which minimises an error
criterion on the model outputs using the
provided functions
Calibration_HBAN Calibration algorithm which minimises the error
criterion using the Irstea-HBAN procedure
Calibration_optim Calibration algorithm which minimises the error
criterion using the stats::optim function
CreateCalibOptions Creation of the CalibOptions object required to
the Calibration functions
CreateInputsCrit Creation of the InputsCrit object required to
the ErrorCrit functions
CreateInputsModel Creation of the InputsModel object required to
the RunModel functions
CreateRunOptions Creation of the RunOptions object required to
the RunModel functions
DataAltiExtrapolation_HBAN
Altitudinal extrapolation of precipitation and
temperature series
ErrorCrit Error criterion using the provided function
ErrorCrit_KGE Error criterion based on the KGE formula
ErrorCrit_KGE2 Error criterion based on the KGE' formula
ErrorCrit_NSE Error criterion based on the NSE formula
ErrorCrit_RMSE Error criterion based on the RMSE
PEdaily_Oudin Computation of daily series of potential
evapotranspiration with Oudin's formula
RunModel Run with the provided hydrological model
function
RunModel_CemaNeige Run with the CemaNeige snow module
RunModel_CemaNeigeGR4J
Run with the CemaNeigeGR4J hydrological model
RunModel_CemaNeigeGR5J
Run with the CemaNeigeGR5J hydrological model
RunModel_CemaNeigeGR6J
Run with the CemaNeigeGR6J hydrological model
RunModel_GR4J Run with the GR4J hydrological model
RunModel_GR5J Run with the GR5J hydrological model
RunModel_GR6J Run with the GR6J hydrological model
TransfoParam Transformation of the parameters using the
provided function
TransfoParam_CemaNeige
Transformation of the parameters from the
CemaNeige module
TransfoParam_GR4J Transformation of the parameters from the GR4J
model
TransfoParam_GR5J Transformation of the parameters from the GR5J
model
TransfoParam_GR6J Transformation of the parameters from the GR6J
model
airGR Modelling tools used at Irstea-HBAN (France),
including GR4J, GR5J, GR6J and CemaNeige
plot_OutputsModel Default preview of model outputs
MD5 0 → 100644
dc740898c129f840d12d222a2ead106d *DESCRIPTION
eacf8601006227c3c02bcfaf97cbdc0e *INDEX
f06c85e4eb89b267cfb165274067c4e8 *Meta/Rd.rds
32a1c5de93e3b6254dbd86b07ba073ba *Meta/data.rds
e5a11fd9f38a3bf1d0dadd7840a739f7 *Meta/hsearch.rds
a1d82a0c2244a09e38104c219298794a *Meta/links.rds
3b9ab8f86ffaa46a406cb5352028ef27 *Meta/nsInfo.rds
7ecce7e1cc77345bfed1ac9c9b04e61d *Meta/package.rds
52ca795872157b1a3e2b6f6bfbc480e0 *NAMESPACE
ebf0fc819595d631b8bf280c4b049940 *R/airGR
fca9fb51c6dd9ac775dbba00d895d0a7 *R/airGR.rdb
9362eca21ff55ff6e7866a8653c5371e *R/airGR.rdx
63a6f712183a364edfac4df460e83c4b *data/L0123001.rda
aa6993b50e8a59fb4b37c8eb92df6760 *data/L0123002.rda
cd27feeac8c19aad0c511b33010ea9ed *data/L0123003.rda
c067204cb6e5b9db41af38aa96b519b0 *help/AnIndex
a55d619bb922901e93a88bc0cd44fa4a *help/airGR.rdb
efdee1c7837ed1b695a529e17fa09725 *help/airGR.rdx
228f1599718d0523f25967469dcfbb61 *help/aliases.rds
d312909d7d245fe60010b0b763b00f13 *help/paths.rds
592202faa3a70495a0bf299af2596ac4 *html/00Index.html
444535b9cb76ddff1bab1e1865a3fb14 *html/R.css
0b6e15e196f42c1f59b5b95fc0fad2b9 *libs/i386/airGR.dll
Meta/Rd.rds 0 → 100644
File added
Meta/data.rds 0 → 100644
File added
File added
Meta/links.rds 0 → 100644
File added
File added
File added
NAMESPACE 0 → 100644
# Generated by roxygen2 (4.0.1): do not edit by hand
export(Calibration)
export(Calibration_HBAN)
export(Calibration_optim)
export(CreateCalibOptions)
export(CreateInputsCrit)
export(CreateInputsModel)
export(CreateRunOptions)
export(DataAltiExtrapolation_HBAN)
export(ErrorCrit)
export(ErrorCrit_KGE)
export(ErrorCrit_KGE2)
export(ErrorCrit_NSE)
export(ErrorCrit_RMSE)
export(PEdaily_Oudin)
export(RunModel)
export(RunModel_CemaNeige)
export(RunModel_CemaNeigeGR4J)
export(RunModel_CemaNeigeGR5J)
export(RunModel_CemaNeigeGR6J)
export(RunModel_GR4J)
export(RunModel_GR5J)
export(RunModel_GR6J)
export(TransfoParam)
export(TransfoParam_CemaNeige)
export(TransfoParam_GR4J)
export(TransfoParam_GR5J)
export(TransfoParam_GR6J)
export(plot_OutputsModel)
useDynLib(airgr)
R/airGR 0 → 100644
# File share/R/nspackloader.R
# Part of the R package, http://www.R-project.org
#
# Copyright (C) 1995-2012 The R Core Team
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# A copy of the GNU General Public License is available at
# http://www.r-project.org/Licenses/
local({
info <- loadingNamespaceInfo()
pkg <- info$pkgname
ns <- .getNamespace(as.name(pkg))
if (is.null(ns))
stop("cannot find namespace environment for ", pkg, domain = NA);
dbbase <- file.path(info$libname, pkg, "R", pkg)
lazyLoad(dbbase, ns, filter = function(n) n != ".__NAMESPACE__.")
})
R/airGR.rdb 0 → 100644
File added
R/airGR.rdx 0 → 100644
File added
Version: 1.0
RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8
RnwWeave: Sweave
LaTeX: pdfLaTeX
File added
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment