subroutine, public gw_diffusion::gw_ediff |
( |
integer, intent(in) |
ncol, |
|
|
integer, intent(in) |
pver, |
|
|
integer, intent(in) |
ngwv, |
|
|
integer, intent(in) |
kbot, |
|
|
integer, intent(in) |
ktop, |
|
|
integer, dimension(ncol), intent(in) |
tend_level, |
|
|
real(r8), dimension(ncol,pver,-ngwv:ngwv), intent(in) |
gwut, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
ubm, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
nm, |
|
|
real(r8), dimension(ncol,pver+1), intent(in) |
rho, |
|
|
real(r8), intent(in) |
dt, |
|
|
real(r8), intent(in) |
gravit, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
pmid, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
rdpm, |
|
|
real(r8), dimension(ncol,-ngwv:ngwv), intent(in) |
c, |
|
|
real(r8), dimension(ncol,0:pver), intent(out) |
egwdffi, |
|
|
type(lu_decomp), intent(out) |
decomp |
|
) |
| |