/[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/dyn3d/convmas.f revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC trunk/Sources/dyn3d/convmas.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 9  contains Line 9  contains
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 dimens_m, ONLY: iim, jjm, llm
12      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1, llmm1      USE paramet_m, ONLY: ip1jm, ip1jmp1, llmm1
13      USE filtreg_m, ONLY: filtreg      USE filtreg_scal_m, ONLY: filtreg_scal
14    
15      ! Authors: P. Le Van, F. Hourdin      ! Authors: P. Le Van, F. Hourdin
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
# Line 31  contains Line 31  contains
31      CALL convflu(pbaru, pbarv, llm, convm)      CALL convflu(pbaru, pbarv, llm, convm)
32    
33      ! Filtrage :      ! Filtrage :
34      CALL filtreg(convm, direct = .true., intensive = .false.)      CALL filtreg_scal(convm, direct = .true., intensive = .false.)
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
Legend:
Removed from v.107  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21