From a1a849103473e1b992f5322d656d11644134b896 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 1 Feb 2019 11:20:10 +0100
Subject: [PATCH] Philippe 01/02/2019: SURFEX: bug in intent of PDEEP_FLUX
OUT->INOUT
---
src/SURFEX/e_budget.F90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/SURFEX/e_budget.F90 b/src/SURFEX/e_budget.F90
index a717d91e8..0615f6428 100644
--- a/src/SURFEX/e_budget.F90
+++ b/src/SURFEX/e_budget.F90
@@ -1,6 +1,6 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!SFX_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
-!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
! #########
SUBROUTINE E_BUDGET(IO, KK, PK, PEK, DK, DMK, HIMPLICIT_WIND, &
@@ -76,6 +76,7 @@
!! (B. Decharme) 10/14 Bug in DIF composite budget
!! Use harmonic mean to compute interfacial thermal conductivities
!! "Restore" flux computed here
+!! (P. Wautelet) 02/19 Bug in intent of PDEEP_FLUX OUT->INOUT
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -183,7 +184,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: PALBT, PEMIST, PDQSAT
REAL, DIMENSION(:), INTENT(IN) :: PQSAT
! PQSAT = saturation vapor humidity
!
-REAL, DIMENSION(:), INTENT(OUT) :: PDEEP_FLUX ! Heat flux at bottom of ISBA (W/m2)
+REAL, DIMENSION(:), INTENT(INOUT) :: PDEEP_FLUX ! Heat flux at bottom of ISBA (W/m2)
!
REAL, DIMENSION(:), INTENT(OUT) :: PRESTORE
! PRESTORE = surface restore flux (W m-2)
--
GitLab