12 |
c pour l'eau vapeur et l'eau liquide |
c pour l'eau vapeur et l'eau liquide |
13 |
c |
c |
14 |
c |
c |
15 |
INTEGER nq |
INTEGER, intent(in):: nq |
16 |
REAL q(ip1jmp1,llm,nq), deltap(ip1jmp1,llm) |
REAL q(ip1jmp1,llm,nq), deltap(ip1jmp1,llm) |
17 |
c |
c |
18 |
INTEGER iq_vap, iq_liq |
INTEGER iq_vap, iq_liq |
54 |
iq = iq_vap |
iq = iq_vap |
55 |
c |
c |
56 |
DO k = llm, 2, -1 |
DO k = llm, 2, -1 |
|
ccc zx_abc = dpres(k) / dpres(k-1) |
|
57 |
DO i = 1, ip1jmp1 |
DO i = 1, ip1jmp1 |
58 |
zx_abc = deltap(i,k)/deltap(i,k-1) |
zx_abc = deltap(i,k)/deltap(i,k-1) |
59 |
zx_defau = AMAX1( seuil_vap - q(i,k,iq), 0.0 ) |
zx_defau = AMAX1( seuil_vap - q(i,k,iq), 0.0 ) |