subroutine, public gw_oro::gw_oro_src |
( |
integer, intent(in) |
ncol, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
u, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
v, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
t, |
|
|
real(r8), dimension(ncol), intent(in) |
sgh, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
pmid, |
|
|
real(r8), dimension(ncol,0:pver), intent(in) |
pint, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
dpm, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
zm, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
nm, |
|
|
integer, dimension(ncol), intent(out) |
src_level, |
|
|
integer, dimension(ncol), intent(out) |
tend_level, |
|
|
real(r8), dimension(ncol,-pgwv:pgwv,0:pver), intent(out) |
tau, |
|
|
real(r8), dimension(ncol,pver), intent(out) |
ubm, |
|
|
real(r8), dimension(ncol,0:pver), intent(out) |
ubi, |
|
|
real(r8), dimension(ncol), intent(out) |
xv, |
|
|
real(r8), dimension(ncol), intent(out) |
yv, |
|
|
real(r8), dimension(ncol,-pgwv:pgwv), intent(out) |
c |
|
) |
| |