subroutine test_scale_adiabat |
( |
integer, intent(in) | ta, |
|
|
integer, intent(in) | ka, |
|
|
integer, intent(in) | ks, |
|
|
integer, intent(in) | ke, |
|
|
integer, intent(in) | ia, |
|
|
integer, intent(in) | is, |
|
|
integer, intent(in) | ie, |
|
|
integer, intent(in) | ja, |
|
|
integer, intent(in) | js, |
|
|
integer, intent(in) | je, |
|
|
integer, intent(in) | kstr, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | temp, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | pres, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qv, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qc, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qr, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qi, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qs, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(in) | qg, |
|
|
real(rp), dimension(ka), intent(in) | cz, |
|
|
real(rp), dimension(0:ka), intent(in) | fz, |
|
|
real(rp), dimension(ia,ja,ta), intent(inout) | cape, |
|
|
real(rp), dimension(ia,ja,ta), intent(inout) | cin, |
|
|
real(rp), dimension(ia,ja,ta), intent(inout) | lcl, |
|
|
real(rp), dimension(ia,ja,ta), intent(inout) | lfc, |
|
|
real(rp), dimension(ia,ja,ta), intent(inout) | lnb, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(inout) | dens_p, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(inout) | temp_p, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(inout) | buoy_p, |
|
|
real(rp), dimension(ia,ja,ka,ta), intent(inout) | qv_p ) |