subroutine, public gw_convect::gw_beres_src |
( |
integer, intent(in) |
ncol, |
|
|
integer, intent(in) |
ngwv, |
|
|
real(r8), dimension(ncol), intent(in) |
lat, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
u, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
v, |
|
|
real(r8), dimension(:,:), intent(in) |
netdt, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
zm, |
|
|
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, |
|
|
real(r8), dimension(ncol), intent(out) |
hdepth, |
|
|
real(r8), dimension(ncol), intent(out) |
maxq0 |
|
) |
| |