subroutine calwxt_bourg | ( | integer, intent(in) | lm, |
integer, intent(in) | lp1, | ||
real, dimension(2), intent(in) | rn, | ||
real, intent(in) | g, | ||
real, dimension(lm), intent(in) | t, | ||
real, dimension(lm), intent(in) | q, | ||
real, dimension(lm), intent(in) | pmid, | ||
real, dimension(lp1), intent(in) | pint, | ||
real, dimension(lp1), intent(in) | zint, | ||
integer, intent(out) | ptype | ||
) |