14 |
IMPLICIT NONE |
IMPLICIT NONE |
15 |
|
|
16 |
REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm) |
REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm) |
17 |
REAL p(ip1jmp1, llm + 1), q(ip1jmp1, llm, nqmx) |
REAL, intent(in):: p(ip1jmp1, llm + 1) |
18 |
|
real q(ip1jmp1, llm, nqmx) |
19 |
|
|
20 |
real, intent(out):: dq(ip1jmp1, llm, 2) |
real, intent(out):: dq(ip1jmp1, llm, 2) |
21 |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |