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

Diff of /trunk/dyn3d/integrd.f

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

revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC
# Line 16  contains Line 16  contains
16      USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, jjp1, llmp1      USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, jjp1, llmp1
17      USE comvert, ONLY : ap, bp      USE comvert, ONLY : ap, bp
18      USE comgeom, ONLY : aire, apoln, apols      USE comgeom, ONLY : aire, apoln, apols
     USE pression_m, ONLY : pression  
19      USE filtreg_m, ONLY : filtreg      USE filtreg_m, ONLY : filtreg
20    
21      !   Arguments:                                                                !   Arguments:                                                          
# Line 90  contains Line 89  contains
89    
90      !  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 .      !  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 .
91    
92      CALL pression(ip1jmp1,ap,bp,ps,p)      forall (l = 1: llm + 1) p(:, l) = ap(l) + bp(l) * ps
93      CALL massdair(p,masse)      CALL massdair(p,masse)
94    
95      CALL scopy(ijp1llm,masse,1,finvmasse,1)      CALL scopy(ijp1llm,masse,1,finvmasse,1)
Legend:
Removed from v.32  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.21