DO i=1,ijm
I undef, pInc,ijm,lm, myThid )
DO i=2,ijm
INTEGER ijm,lm,myThid
_RL qinp (ijm,lm)
_RL pkz (ijm,lm)
_RL pksrf(ijm)
_RL qprs (ijm)