From ed819c28bfa6214facf88c141c8564f5f5872fda Mon Sep 17 00:00:00 2001
From: "olivier.delaigue" <olivier.delaigue@irstea.fr>
Date: Wed, 20 Aug 2014 16:33:33 +0200
Subject: [PATCH] [airGR_dev_0.7.2] Corrections HU pour PDM et HYMO

---
 files_src_PLUS/frun_HBANLIB_DMod_D.f | 4 ++--
 files_src_PLUS/frun_HBANLIB_DMod_S.f | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/files_src_PLUS/frun_HBANLIB_DMod_D.f b/files_src_PLUS/frun_HBANLIB_DMod_D.f
index 22114796..46e0d760 100644
--- a/files_src_PLUS/frun_HBANLIB_DMod_D.f
+++ b/files_src_PLUS/frun_HBANLIB_DMod_D.f
@@ -1400,7 +1400,7 @@ C Convolution délai
       DO 3 K=1,3*NH-1
       X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q2)
     3 CONTINUE
-      X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q2)
+      X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q2)
 
 C Débit total
       Q=X(8)
@@ -1547,7 +1547,7 @@ C Convolution délai
       DO 3 K=1,3*NH-1
       X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q3)
     3 CONTINUE
-      X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q3)
+      X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q3)
 
 C Débit total
       Q=X(8)
diff --git a/files_src_PLUS/frun_HBANLIB_DMod_S.f b/files_src_PLUS/frun_HBANLIB_DMod_S.f
index 22e1d4e3..91c4966d 100644
--- a/files_src_PLUS/frun_HBANLIB_DMod_S.f
+++ b/files_src_PLUS/frun_HBANLIB_DMod_S.f
@@ -1400,7 +1400,7 @@ C Convolution délai
       DO 3 K=1,3*NH-1
       X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q2)
     3 CONTINUE
-      X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q2)
+      X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q2)
 
 C Débit total
       Q=X(8)
@@ -1547,7 +1547,7 @@ C Convolution délai
       DO 3 K=1,3*NH-1
       X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q3)
     3 CONTINUE
-      X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q3)
+      X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q3)
 
 C Débit total
       Q=X(8)
-- 
GitLab