subroutine calwxt_ramer | ( | integer, intent(in) | lm, |
integer, intent(in) | lp1, | ||
real, dimension(lm), intent(in) | t, | ||
real, dimension(lm), intent(in) | q, | ||
real, dimension(lm), intent(in) | pmid, | ||
real, dimension(lm), intent(in) | rh, | ||
real, dimension(lm), intent(in) | td, | ||
real, dimension(lp1), intent(in) | pint, | ||
integer, intent(out) | ptyp | ||
) |