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

Diff of /trunk/dyn3d/convmas.f

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

trunk/Sources/dyn3d/convmas.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC trunk/dyn3d/convmas.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 8  contains Line 8  contains
8    
9      ! From LMDZ4/libf/dyn3d/convmas.F, version 1.1.1.1, 2004/05/19 12:53:07      ! From LMDZ4/libf/dyn3d/convmas.F, version 1.1.1.1, 2004/05/19 12:53:07
10    
11      USE dimens_m, ONLY: iim, jjm, llm      USE dimensions, ONLY: iim, jjm, llm
12      USE paramet_m, ONLY: ip1jm, ip1jmp1, llmm1      USE paramet_m, ONLY: ip1jm, ip1jmp1, llmm1
13      USE filtreg_scal_m, ONLY: filtreg_scal      USE filtreg_scal_m, ONLY: filtreg_scal
14    
# 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.178  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21