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

Diff of /trunk/dyn3d/caladvtrac.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 10  SUBROUTINE caladvtrac(q, pbaru, pbarv, p Line 10  SUBROUTINE caladvtrac(q, pbaru, pbarv, p
10    use paramet_m, only: ip1jmp1    use paramet_m, only: ip1jmp1
11    use comconst, only: dtvr    use comconst, only: dtvr
12    use conf_gcm_m, only: iapp_tracvl    use conf_gcm_m, only: iapp_tracvl
13      use filtreg_m, only: filtreg
14    
15    IMPLICIT NONE    IMPLICIT NONE
16    
17    REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm)    REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm)
18    REAL p(ip1jmp1, llm + 1), q(ip1jmp1, llm, nqmx)    REAL, intent(in):: p(ip1jmp1, llm + 1)
19      real q(ip1jmp1, llm, nqmx)
20    
21    real, intent(out):: dq(ip1jmp1, llm, 2)    real, intent(out):: dq(ip1jmp1, llm, 2)
22    ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)    ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)
Legend:
Removed from v.3  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21