Commit 2a524d43 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.3.71 style: rename frun_etp_oudin Fortran subroutine into frun_pe_oudin...

v1.6.3.71 style: rename frun_etp_oudin Fortran subroutine into frun_pe_oudin to be consitent with the R function name
Refs #62
parent d6f27bc0
Pipeline #17763 canceled with stages
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.3.70 Version: 1.6.3.71
Date: 2020-11-23 Date: 2020-11-23
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
### 1.6.3.70 Release Notes (2020-11-23) ### 1.6.3.71 Release Notes (2020-11-23)
#### New features #### New features
......
...@@ -68,7 +68,7 @@ PE_Oudin <- function(JD, Temp, ...@@ -68,7 +68,7 @@ PE_Oudin <- function(JD, Temp,
Lat = rep(Lat, LInputs) Lat = rep(Lat, LInputs)
} }
RESULTS <- .Fortran("frun_etp_oudin", PACKAGE = "airGR", RESULTS <- .Fortran("frun_pe_oudin", PACKAGE = "airGR",
##inputs ##inputs
LInputs = LInputs, LInputs = LInputs,
InputsLAT = as.double(Lat), InputsLAT = as.double(Lat),
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
!------------------------------------------------------------------------------ !------------------------------------------------------------------------------
! TITLE : airGR ! TITLE : airGR
! PROJECT : airGR ! PROJECT : airGR
! FILE : frun_ETP.f90 ! FILE : frun_PE.f90
!------------------------------------------------------------------------------ !------------------------------------------------------------------------------
! AUTHORS ! AUTHORS
! Original code: L. Oudin ! Original code: L. Oudin
...@@ -21,13 +21,13 @@ ...@@ -21,13 +21,13 @@
! 303(1-4), 290-306. ! 303(1-4), 290-306.
!------------------------------------------------------------------------------ !------------------------------------------------------------------------------
! Quick description of public procedures: ! Quick description of public procedures:
! 1. frun_etp_oudin ! 1. frun_pe_oudin
! 2. 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, ! Subroutine that performs the call to the PE_OUDIN subroutine at each time step,
! and stores the final values ! and stores the final values
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
!DEC$ ATTRIBUTES DLLEXPORT :: frun_etp_oudin !DEC$ ATTRIBUTES DLLEXPORT :: frun_pe_oudin
Implicit None Implicit None
......
Markdown is supported
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