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

Diff of /trunk/dyn3d/caldyn0.f

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

trunk/libf/dyn3d/caldyn0.f90 revision 46 by guez, Mon May 16 14:52:30 2011 UTC trunk/dyn3d/caldyn0.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 12  contains Line 12  contains
12      ! Objet: calcul des tendances dynamiques      ! Objet: calcul des tendances dynamiques
13      ! Modif 04/93 F.Forget      ! Modif 04/93 F.Forget
14    
15        USE comgeom, ONLY : airesurg
16      USE dimens_m, ONLY : llm      USE dimens_m, ONLY : 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  
20    
21      !   Arguments:      !   Arguments:
22      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)
23      REAL :: teta(ip1jmp1, llm)      REAL, INTENT(IN):: teta(ip1jmp1, llm)
24      REAL, INTENT (IN) :: ps(ip1jmp1)      REAL, INTENT (IN) :: ps(ip1jmp1)
25      REAL, INTENT (IN) :: phis(ip1jmp1)      REAL, INTENT (IN) :: phis(ip1jmp1)
26      REAL, INTENT (IN) :: pk(iip1, jjp1, llm)      REAL, INTENT (IN) :: pk(iip1, jjp1, llm)
Legend:
Removed from v.46  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21