/[lmdze]/trunk/libf/dyn3d/caldyn0.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/caldyn0.f90

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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC
# Line 16  contains Line 16  contains
16      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
17      USE comvert, ONLY : ap, bp      USE comvert, ONLY : ap, bp
18      USE comgeom, ONLY : airesurg      USE comgeom, ONLY : airesurg
     USE pression_m, ONLY : pression  
19    
20      !   Arguments:      !   Arguments:
21      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL, INTENT (IN) :: vcov(ip1jm, llm), ucov(ip1jmp1, llm)
# Line 37  contains Line 36  contains
36      REAL :: bern(ip1jmp1, llm)      REAL :: bern(ip1jmp1, llm)
37      REAL :: massebxy(ip1jm, llm), dp(ip1jmp1)      REAL :: massebxy(ip1jm, llm), dp(ip1jmp1)
38    
39      INTEGER :: ij      INTEGER :: ij, l
40    
41      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
42    
# Line 46  contains Line 45  contains
45      !   Calcul des tendances dynamiques:      !   Calcul des tendances dynamiques:
46    
47      CALL covcont(llm, ucov, vcov, ucont, vcont)      CALL covcont(llm, ucov, vcov, ucont, vcont)
48      CALL pression(ip1jmp1, ap, bp, ps, p)      forall (l = 1: llm + 1) p(:, l) = ap(l) + bp(l) * ps
49      CALL psextbar(ps, psexbarxy)      CALL psextbar(ps, psexbarxy)
50      CALL massdair(p, masse)      CALL massdair(p, masse)
51      CALL massbar(masse, massebx, masseby)      CALL massbar(masse, massebx, masseby)
Legend:
Removed from v.23  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.21