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

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

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

revision 46 by guez, Mon May 16 14:52:30 2011 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 4  module integrd_m Line 4  module integrd_m
4    
5  contains  contains
6    
7    SUBROUTINE integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, &    SUBROUTINE integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, dudyn, &
8         dteta, dp, vcov, ucov, teta, q, ps, masse, finvmaold, dt, leapf)         dteta, dp, vcov, ucov, teta, q, ps, masse, finvmaold, dt, leapf)
9    
10      ! From dyn3d/integrd.F, version 1.1.1.1 2004/05/19 12:53:05      ! From dyn3d/integrd.F, version 1.1.1.1 2004/05/19 12:53:05
# Line 30  contains Line 30  contains
30      REAL tetam1((iim + 1) * (jjm + 1), llm), psm1((iim + 1) * (jjm + 1))      REAL tetam1((iim + 1) * (jjm + 1), llm), psm1((iim + 1) * (jjm + 1))
31      real massem1((iim + 1) * (jjm + 1), llm)      real massem1((iim + 1) * (jjm + 1), llm)
32    
33      REAL dv(ip1jm, llm), du((iim + 1) * (jjm + 1), llm)      REAL dv(ip1jm, llm), dudyn((iim + 1) * (jjm + 1), llm)
34      REAL dteta((iim + 1) * (jjm + 1), llm), dp((iim + 1) * (jjm + 1))      REAL dteta((iim + 1) * (jjm + 1), llm), dp((iim + 1) * (jjm + 1))
35      REAL finvmaold((iim + 1) * (jjm + 1), llm)      REAL finvmaold((iim + 1) * (jjm + 1), llm)
36      LOGICAL, INTENT (IN) :: leapf      LOGICAL, INTENT (IN) :: leapf
# Line 106  contains Line 106  contains
106      DO l = 1, llm      DO l = 1, llm
107         DO ij = iip2, ip1jm         DO ij = iip2, ip1jm
108            uscr(ij) = ucov(ij, l)            uscr(ij) = ucov(ij, l)
109            ucov(ij, l) = ucovm1(ij, l) + dt*du(ij, l)            ucov(ij, l) = ucovm1(ij, l) + dt*dudyn(ij, l)
110         END DO         END DO
111    
112         DO ij = 1, ip1jm         DO ij = 1, ip1jm
Legend:
Removed from v.46  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21