#include "dimensions.h"
#include "paramet.h"
#include "comconst.h"
#include "comgeom.h"
#include "comdissnew.h"
#include "comdissipn.h"
Go to the source code of this file.
|
subroutine | dissip (vcov, ucov, teta, p, dv, du, dh) |
|
subroutine dissip |
( |
real, dimension(ip1jm,llm), intent(in) |
vcov, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
ucov, |
|
|
real, dimension(ip1jmp1,llm), intent(in) |
teta, |
|
|
real, dimension(ip1jmp1,llmp1), intent(in) |
p, |
|
|
real, dimension(ip1jm,llm), intent(out) |
dv, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
du, |
|
|
real, dimension(ip1jmp1,llm), intent(out) |
dh |
|
) |
| |