subroutine integrd |
( |
integer, intent(in) |
nq, |
|
|
real, dimension(ip1jm,llm), intent(inout) |
vcovm1, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
ucovm1, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
tetam1, |
|
|
real, dimension(ip1jmp1), intent(inout) |
psm1, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
massem1, |
|
|
real, dimension(ip1jm,llm), intent(in) |
dv, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
du, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
dteta, |
|
|
real, dimension(ip1jmp1,llm,nq), intent(in) |
dq, |
|
|
real, dimension(ip1jmp1), intent(in) |
dp, |
|
|
real, dimension(ip1jm,llm), intent(inout) |
vcov, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
ucov, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
teta, |
|
|
real, dimension(ip1jmp1,llm,nq), intent(inout) |
q, |
|
|
real, dimension(ip1jmp1), intent(inout) |
ps, |
|
|
real, dimension(ip1jmp1,llm), intent(inout) |
masse, |
|
|
real, dimension(ip1jmp1), intent(in) |
phis |
|
) |
| |