subroutine, public nh_core_mod::riem_solver3 |
( |
integer, intent(in) |
ms, |
|
|
real, intent(in) |
dt, |
|
|
integer, intent(in) |
is, |
|
|
integer, intent(in) |
ie, |
|
|
integer, intent(in) |
js, |
|
|
integer, intent(in) |
je, |
|
|
integer, intent(in) |
km, |
|
|
integer, intent(in) |
ng, |
|
|
integer, intent(in) |
isd, |
|
|
integer, intent(in) |
ied, |
|
|
integer, intent(in) |
jsd, |
|
|
integer, intent(in) |
jed, |
|
|
real, intent(in) |
akap, |
|
|
real, dimension(isd:,jsd:,1:), intent(in) |
cappa, |
|
|
real, intent(in) |
cp, |
|
|
real, intent(in) |
ptop, |
|
|
real, dimension(isd:ied,jsd:jed), intent(in) |
zs, |
|
|
real, dimension(isd:,jsd:,1:), intent(in) |
q_con, |
|
|
real, dimension(isd:ied,jsd:jed,km), intent(inout) |
w, |
|
|
real, dimension(is-ng:ie+ng,js-ng:je+ng,km), intent(out) |
delz, |
|
|
real, dimension(isd:ied,jsd:jed,km), intent(in) |
pt, |
|
|
real, dimension(isd:ied,jsd:jed,km), intent(in) |
delp, |
|
|
real, dimension(isd:ied,jsd:jed,km+1), intent(inout) |
zh, |
|
|
real, dimension(is-1:ie+1,km+1,js-1:je+1), intent(inout) |
pe, |
|
|
real, dimension(isd:ied,jsd:jed,km+1), intent(out) |
ppe, |
|
|
real, dimension(isd:ied,jsd:jed,km+1), intent(out) |
pk3, |
|
|
real, dimension(is:ie,js:je,km+1), intent(out) |
pk, |
|
|
real, dimension(is:ie,km+1,js:je), intent(out) |
peln, |
|
|
real, dimension(is:ie,js:je), intent(in) |
ws, |
|
|
real, intent(in) |
scale_m, |
|
|
real, intent(in) |
p_fac, |
|
|
real, intent(in) |
a_imp, |
|
|
logical, intent(in) |
use_logp, |
|
|
logical, intent(in) |
last_call, |
|
|
logical, intent(in) |
fp_out |
|
) |
| |