/[lmdze]/trunk/Sources/dyn3d/convmas.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/convmas.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 251 by guez, Fri Mar 11 18:47:26 2016 UTC revision 252 by guez, Mon Jan 22 15:02:56 2018 UTC
# Line 16  contains Line 16  contains
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)
# Line 35  contains Line 35  contains
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
Legend:
Removed from v.251  
changed lines
  Added in v.252
  ViewVC Help
Powered by ViewVC 1.1.21