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

Diff of /trunk/dyn3d/convmas.f

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

revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 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: llm      USE dimens_m, ONLY: iim, jjm, llm
12      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1, llmm1      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1, llmm1
13      USE filtreg_m, ONLY: filtreg      USE filtreg_m, ONLY: filtreg
14    
# Line 20  contains Line 20  contains
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)
23      REAL, INTENT(OUT):: convm(ip1jmp1, llm)      REAL, INTENT(OUT):: convm(iim + 1, jjm + 1, llm)
24    
25      ! Local:      ! Local:
26      INTEGER l, ij      INTEGER l
27    
28      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
29    
# 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         DO ij = 1, ip1jmp1         convm(:, :, l) = convm(:, :, l) + convm(:, :, l+1)
           convm(ij, l) = convm(ij, l) + convm(ij, l+1)  
        END DO  
39      END DO      END DO
40    
41    END SUBROUTINE convmas    END SUBROUTINE convmas
Legend:
Removed from v.91  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21