From 5ba2edd9afdc844200ea284719c40d2ba8bab749 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 8 Feb 2019 11:44:24 +0100
Subject: [PATCH] Philippe 08/02/2019: SURFEX: fix intent of PFIELD_OUT
(OUT->INOUT)
---
src/SURFEX/average_diag.F90 | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/src/SURFEX/average_diag.F90 b/src/SURFEX/average_diag.F90
index 14364414e..158ea03af 100644
--- a/src/SURFEX/average_diag.F90
+++ b/src/SURFEX/average_diag.F90
@@ -1,6 +1,6 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!SFX_LIC Copyright 2003-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 AVERAGE_DIAG(PFRAC_TILE, DGO, D, ND, DC, NDC )
@@ -37,6 +37,7 @@
!! Modified 08/2009 (B. Decharme) : new diag
! 02/2010 - S. Riette - Security for wind average in case of XUNDEF values
! B. decharme 04/2013 : Add EVAP and SUBL diag
+! P. Wautelet 02/2019: bug: fixed intent of PFIELD_OUT (OUT->INOUT)
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -323,7 +324,7 @@ IMPLICIT NONE
!
REAL, DIMENSION(:),INTENT(IN) :: PFRAC
REAL, DIMENSION(:),INTENT(IN) :: PFIELD_IN
-REAL, DIMENSION(:), INTENT(OUT) :: PFIELD_OUT
+REAL, DIMENSION(:), INTENT(INOUT) :: PFIELD_OUT
INTEGER, INTENT(IN) :: KTILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
INTEGER :: JT
@@ -350,7 +351,7 @@ IMPLICIT NONE
!
REAL, DIMENSION(:),INTENT(IN) :: PFRAC
REAL, DIMENSION(:,:),INTENT(IN) :: PFIELD_IN
-REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD_OUT
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PFIELD_OUT
INTEGER, INTENT(IN) :: KTILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
INTEGER :: JT, JL
@@ -379,7 +380,7 @@ IMPLICIT NONE
REAL, DIMENSION(:),INTENT(IN) :: PFRAC
REAL, DIMENSION(:),INTENT(IN) :: PFIELD_IN
REAL, DIMENSION(:),INTENT(IN) :: PREF
-REAL, DIMENSION(:), INTENT(OUT) :: PFIELD_OUT
+REAL, DIMENSION(:), INTENT(INOUT) :: PFIELD_OUT
INTEGER, INTENT(IN) :: KTILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
@@ -413,7 +414,7 @@ IMPLICIT NONE
!
REAL, DIMENSION(:),INTENT(IN) :: PFRAC
REAL, DIMENSION(:),INTENT(IN) :: PFIELD_IN
-REAL, DIMENSION(:), INTENT(OUT) :: PFIELD_OUT
+REAL, DIMENSION(:), INTENT(INOUT) :: PFIELD_OUT
INTEGER, INTENT(IN) :: KTILE
REAL, DIMENSION(:), INTENT(INOUT) :: PLAND
REAL, DIMENSION(:), INTENT(INOUT) :: PSEA
--
GitLab