--- trunk/Sources/dyn3d/convmas.f 2018/01/08 14:12:02 251 +++ trunk/Sources/dyn3d/convmas.f 2018/01/22 15:02:56 252 @@ -16,7 +16,7 @@ ! Objet: calcul de la convergence du flux de masse aux niveaux p ! Le calcul se fait de haut en bas, la convergence de masse au - ! 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 ! tableau convm. REAL, INTENT(IN):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) @@ -35,7 +35,7 @@ ! Intégration de la convergence de masse de haut en bas : DO l = llmm1, 1, -1 - convm(:, :, l) = convm(:, :, l) + convm(:, :, l+1) + convm(:, :, l) = convm(:, :, l) + convm(:, :, l + 1) END DO END SUBROUTINE convmas