/[lmdze]/trunk/dyn3d/caldyn.f90
ViewVC logotype

Diff of /trunk/dyn3d/caldyn.f90

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

revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC
# Line 12  contains Line 12  contains
12      ! Objet : calcul des tendances dynamiques      ! Objet : calcul des tendances dynamiques
13    
14      use advect_m, only: advect      use advect_m, only: advect
15        USE comgeom, ONLY : airesurg, constang
16      USE dimens_m, ONLY : iim, llm      USE dimens_m, ONLY : iim, llm
     USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1  
17      USE disvert_m, ONLY : ap, bp      USE disvert_m, ONLY : ap, bp
18      USE comgeom, ONLY : airesurg, constang      use massdair_m, only: massdair
19        USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
20      use sortvarc_m, only: sortvarc      use sortvarc_m, only: sortvarc
21    
22      ! Arguments:      ! Arguments:
# Line 28  contains Line 29  contains
29      REAL, INTENT(IN):: pk(iip1, jjp1, llm)      REAL, INTENT(IN):: pk(iip1, jjp1, llm)
30      REAL pkf(ip1jmp1, llm)      REAL pkf(ip1jmp1, llm)
31      REAL vcont(ip1jm, llm), ucont(ip1jmp1, llm)      REAL vcont(ip1jm, llm), ucont(ip1jmp1, llm)
32      REAL phi(ip1jmp1, llm), masse(ip1jmp1, llm)      REAL, INTENT(IN):: phi(ip1jmp1, llm)
33        real masse(ip1jmp1, llm)
34      REAL dv(ip1jm, llm), dudyn(ip1jmp1, llm)      REAL dv(ip1jm, llm), dudyn(ip1jmp1, llm)
35      REAL dteta(ip1jmp1, llm)      REAL dteta(ip1jmp1, llm)
36      real, INTENT(out):: dp(ip1jmp1)      real, INTENT(out):: dp(ip1jmp1)
Legend:
Removed from v.66  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21