subroutine module_bl_myjpbl::difcof |
( |
integer(kind=kint), intent(in) | ntsd, |
|
|
integer(kind=kint), intent(in) | me, |
|
|
integer(kind=kint), intent(in) | lmh, |
|
|
integer(kind=kint), intent(in) | lmxl, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(in) | gm, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(in) | gh, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(in) | el, |
|
|
real(kind=kfpt), dimension(1:lm), intent(in) | t, |
|
|
real(kind=kfpt), dimension(1:lm), intent(in) | q2, |
|
|
real(kind=kfpt), dimension(1:lm+1), intent(in) | z, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(out) | akm, |
|
|
real(kind=kfpt), dimension(1:lm-1), intent(out) | akh, |
|
|
integer(kind=kint), intent(in) | i, |
|
|
integer(kind=kint), intent(in) | j, |
|
|
integer(kind=kint), intent(in) | lm, |
|
|
integer(kind=kint), intent(in) | print_diag, |
|
|
integer(kind=kint), intent(in) | kpbl ) |
|
private |