subroutine module_bl_myjpbl::vdifh |
( |
real(kind=kfpt), intent(in) | dtdif, |
|
|
integer(kind=kint), intent(in) | lmh, |
|
|
real(kind=kfpt), intent(in) | thz0, |
|
|
real(kind=kfpt), intent(in) | qz0, |
|
|
real(kind=kfpt), intent(in) | rkhs, |
|
|
real(kind=kfpt), intent(in) | chklowq, |
|
|
real(kind=kfpt), intent(in) | ct, |
|
|
real(kind=kfpt), dimension(1:lm), intent(inout) | th, |
|
|
real(kind=kfpt), dimension(1:lm), intent(inout) | q, |
|
|
real(kind=kfpt), dimension(1:lm), intent(inout) | cwm, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(in) | rkh, |
|
|
real(kind=kfpt), dimension(1:lm+1), intent(in) | z, |
|
|
real(kind=kfpt), dimension(1:lm), intent(in) | rho, |
|
|
integer(kind=kint), intent(in) | i, |
|
|
integer(kind=kint), intent(in) | j, |
|
|
integer(kind=kint), intent(in) | lm ) |
|
private |