subroutine calpreciptype_mod::calwxt |
( |
integer, intent(in) |
lm, |
|
|
integer, intent(in) |
lp1, |
|
|
real(kind=kind_phys), dimension(lm), intent(in) |
t, |
|
|
real(kind=kind_phys), dimension(lm), intent(in) |
q, |
|
|
real(kind=kind_phys), dimension(lm), intent(in) |
pmid, |
|
|
real(kind=kind_phys), dimension(lp1), intent(in) |
pint, |
|
|
real(kind=kind_phys), intent(in) |
d608, |
|
|
real(kind=kind_phys), intent(in) |
rog, |
|
|
real(kind=kind_phys), intent(in) |
epsq, |
|
|
real(kind=kind_phys), dimension(lp1), intent(in) |
zint, |
|
|
integer, intent(out) |
iwx, |
|
|
real(kind=kind_phys), dimension(lm), intent(in) |
twet |
|
) |
| |