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

Diff of /trunk/dyn3d/integrd.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 260 by guez, Tue Mar 6 17:18:33 2018 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, dudyn, dteta, &    SUBROUTINE integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, &
8         dp, vcov, ucov, teta, q, ps, masse, dt, leapf)         dp, vcov, ucov, teta, q, ps, masse, 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 23  contains Line 23  contains
23      REAL, intent(inout):: tetam1(iim + 1, jjm + 1, llm)      REAL, intent(inout):: tetam1(iim + 1, jjm + 1, llm)
24      REAL, intent(inout):: psm1((iim + 1) * (jjm + 1))      REAL, intent(inout):: psm1((iim + 1) * (jjm + 1))
25      real, intent(inout):: massem1(iim + 1, jjm + 1, llm)      real, intent(inout):: massem1(iim + 1, jjm + 1, llm)
26      REAL, intent(in):: dv(ip1jm, llm), dudyn((iim + 1) * (jjm + 1), llm)      REAL, intent(in):: dv(ip1jm, llm), du((iim + 1) * (jjm + 1), llm)
27      REAL, intent(in):: dteta(iim + 1, jjm + 1, llm), dp((iim + 1) * (jjm + 1))      REAL, intent(in):: dteta(iim + 1, jjm + 1, llm), dp((iim + 1) * (jjm + 1))
28      REAL, intent(inout):: vcov(ip1jm, llm), ucov((iim + 1) * (jjm + 1), llm)      REAL, intent(inout):: vcov(ip1jm, llm), ucov((iim + 1) * (jjm + 1), llm)
29      real, intent(inout):: teta(iim + 1, jjm + 1, llm)      real, intent(inout):: teta(iim + 1, jjm + 1, llm)
# Line 92  contains Line 92  contains
92      DO l = 1, llm      DO l = 1, llm
93         DO ij = iip2, ip1jm         DO ij = iip2, ip1jm
94            uscr(ij) = ucov(ij, l)            uscr(ij) = ucov(ij, l)
95            ucov(ij, l) = ucovm1(ij, l) + dt * dudyn(ij, l)            ucov(ij, l) = ucovm1(ij, l) + dt * du(ij, l)
96         END DO         END DO
97    
98         DO ij = 1, ip1jm         DO ij = 1, ip1jm
Legend:
Removed from v.254  
changed lines
  Added in v.260
  ViewVC Help
Powered by ViewVC 1.1.21