16 |
! Objet: calcul de la convergence du flux de masse aux niveaux p |
! Objet: calcul de la convergence du flux de masse aux niveaux p |
17 |
|
|
18 |
! Le calcul se fait de haut en bas, la convergence de masse au |
! Le calcul se fait de haut en bas, la convergence de masse au |
19 |
! niveau p(llm+1) est égale à 0 et n'est pas stockée dans le |
! niveau p(llm + 1) est égale à 0 et n'est pas stockée dans le |
20 |
! tableau convm. |
! tableau convm. |
21 |
|
|
22 |
REAL, INTENT(IN):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL, INTENT(IN):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
35 |
|
|
36 |
! Intégration de la convergence de masse de haut en bas : |
! Intégration de la convergence de masse de haut en bas : |
37 |
DO l = llmm1, 1, -1 |
DO l = llmm1, 1, -1 |
38 |
convm(:, :, l) = convm(:, :, l) + convm(:, :, l+1) |
convm(:, :, l) = convm(:, :, l) + convm(:, :, l + 1) |
39 |
END DO |
END DO |
40 |
|
|
41 |
END SUBROUTINE convmas |
END SUBROUTINE convmas |