nlevsout = nplevs
DO k = 1,nplevs
integer nlevsout,nplevs
parameter(nplevs = 16)
_RL plevs1(nplevs)
_RL plevs2(nplevs)
_RL qprs(sNx,sNy,nplevs)