subroutine caldyn |
( |
integer, intent(in) |
itau, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
ucov, |
|
|
real, dimension(ip1jm,llm), intent(in) |
vcov, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
teta, |
|
|
real, dimension(ip1jmp1), intent(in) |
ps, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
masse, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
pk, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
pkf, |
|
|
real, dimension(ip1jmp1), intent(in) |
phis, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
phi, |
|
|
logical, intent(in) |
conser, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
du, |
|
|
real, dimension(ip1jm,llm), intent(out) |
dv, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
dteta, |
|
|
real, dimension(ip1jmp1), intent(out) |
dp, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
w, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
pbaru, |
|
|
real, dimension(ip1jm,llm), intent(out) |
pbarv, |
|
|
real, intent(in) |
time |
|
) |
| |