#include "dimensions.h"
#include "paramet.h"
#include "comgeom.h"
Go to the source code of this file.
|
subroutine | diverg_gam (klevel, cuvscvgam, cvuscugam, unsairegam, unsapolnga, unsapolsga, x, y, div) |
|
subroutine diverg_gam |
( |
integer |
klevel, |
|
|
real, dimension(ip1jm) |
cuvscvgam, |
|
|
real, dimension(ip1jmp1) |
cvuscugam, |
|
|
real, dimension(ip1jmp1) |
unsairegam, |
|
|
real |
unsapolnga, |
|
|
real |
unsapolsga, |
|
|
real, dimension( ip1jmp1,klevel ) |
x, |
|
|
real, dimension( ip1jm,klevel ) |
y, |
|
|
real, dimension( ip1jmp1,klevel ) |
div |
|
) |
| |