diff --git a/DESCRIPTION b/DESCRIPTION
index 3f18ce20286cf6175fb018e72997e5bb9f327715..1e6c8db7188fe6c6fa8a9bee9f732ea93072011a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.3.70
+Version: 1.6.3.71
Date: 2020-11-23
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 23725f3fb68e171d510a071282dcf3caa2947e2b..b53eef013d9aaaf9295460be7c3d9914e0eb3783 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,7 +4,7 @@
-### 1.6.3.70 Release Notes (2020-11-23)
+### 1.6.3.71 Release Notes (2020-11-23)
#### New features
diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R
index 92468df8d8a00b11a1032070d58e616132fb1f90..a156f3b20a64a9ecb91ea57ee3e77289c4ed0554 100644
--- a/R/PE_Oudin.R
+++ b/R/PE_Oudin.R
@@ -68,7 +68,7 @@ PE_Oudin <- function(JD, Temp,
Lat = rep(Lat, LInputs)
}
- RESULTS <- .Fortran("frun_etp_oudin", PACKAGE = "airGR",
+ RESULTS <- .Fortran("frun_pe_oudin", PACKAGE = "airGR",
##inputs
LInputs = LInputs,
InputsLAT = as.double(Lat),
diff --git a/src/frun_ETP.f90 b/src/frun_PE.f90
similarity index 96%
rename from src/frun_ETP.f90
rename to src/frun_PE.f90
index 9d064c3bc20eb00697f150d12aa9eaa7e539318f..be4e84a525dff970c19c1025fe01486d9b5bc298 100644
--- a/src/frun_ETP.f90
+++ b/src/frun_PE.f90
@@ -3,7 +3,7 @@
!------------------------------------------------------------------------------
! TITLE : airGR
! PROJECT : airGR
-! FILE : frun_ETP.f90
+! FILE : frun_PE.f90
!------------------------------------------------------------------------------
! AUTHORS
! Original code: L. Oudin
@@ -21,13 +21,13 @@
! 303(1-4), 290-306.
!------------------------------------------------------------------------------
! Quick description of public procedures:
-! 1. frun_etp_oudin
+! 1. frun_pe_oudin
! 2. PE_OUDIN
!------------------------------------------------------------------------------
!*******************************************************************************
- SUBROUTINE frun_etp_oudin(LInputs,InputsLAT,InputsTemp,InputsJJ,OutputsPE)
+ SUBROUTINE frun_pe_oudin(LInputs,InputsLAT,InputsTemp,InputsJJ,OutputsPE)
!*******************************************************************************
! Subroutine that performs the call to the PE_OUDIN subroutine at each time step,
! and stores the final values
@@ -41,7 +41,7 @@
- !DEC$ ATTRIBUTES DLLEXPORT :: frun_etp_oudin
+ !DEC$ ATTRIBUTES DLLEXPORT :: frun_pe_oudin
Implicit None