Commit ed819c28 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

[airGR_dev_0.7.2] Corrections HU pour PDM et HYMO

parent e43abbfd
......@@ -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)
......
......@@ -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)
......
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