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 |
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 |
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 |