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

Diff of /trunk/dyn3d/caldyn.f

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

revision 47 by guez, Fri Jul 1 15:00:48 2011 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
17        USE disvert_m, ONLY : ap, bp
18        use massdair_m, only: massdair
19      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
     USE comvert, ONLY : ap, bp  
     USE comgeom, ONLY : airesurg, constang  
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.47  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21