subroutine, public gw_front::gw_cm_src |
( |
integer, intent(in) |
ncol, |
|
|
integer, intent(in) |
ngwv, |
|
|
integer, intent(in) |
kbot, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
u, |
|
|
real(r8), dimension(ncol,pver), intent(in) |
v, |
|
|
real(r8), dimension(:,:), intent(in) |
frontgf, |
|
|
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 |
|
) |
| |