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

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

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

revision 40 by guez, Tue Feb 22 13:49:36 2011 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 27  contains Line 27  contains
27      real, intent(out):: dq(iim + 1, jjm + 1, llm, 2)      real, intent(out):: dq(iim + 1, jjm + 1, llm, 2)
28      ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)      ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)
29    
30      REAL teta(ip1jmp1, llm), pk(ip1jmp1, llm)      REAL, intent(in):: teta(ip1jmp1, llm)
31        real pk(ip1jmp1, llm)
32    
33      ! Local:      ! Local:
34    
# Line 50  contains Line 51  contains
51         CALL qminimum(q, 2, finmasse)         CALL qminimum(q, 2, finmasse)
52    
53         finmasse = masse         finmasse = masse
54         CALL filtreg(finmasse, jjm + 1, llm, -2, 2, .TRUE., 1)         CALL filtreg(finmasse, jjm + 1, llm, -2, 2, .TRUE.)
55    
56         ! Calcul de "dq" pour l'eau, pour le passer à la physique         ! Calcul de "dq" pour l'eau, pour le passer à la physique
57         dtvrtrac = iapp_tracvl * dtvr         dtvrtrac = iapp_tracvl * dtvr
Legend:
Removed from v.40  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21