NLEVM1 = NLEV - 1
ISTNM1 = irun * NLEVM1
DO L =1,NLEVM1
DO L =2,NLEVM1
VKZE(I,NLEVM1) = TEMP(I,NLEV)
DO 100 LL = 2,NLEVM1
DO 200 L = 1,NLEVM1
DO LL = 1,NLEVM1
DO 300 LMINQ = 1,NLEVM1
DO L =LMIN,NLEVM1
DO L =LMINQ1,NLEVM1
DO L =LMIN1,NLEVM1
INT2(I,NLEVM1) = INT1(I,NLEV)
IF(LMINP.GT.NLEVM1) GOTO 550
DO 500 L = LMINP,NLEVM1
IF(LMIN.GT.NLEVM1) GOTO 600
IF( INT1(I,NLEVM1).EQ.1 .AND. INT1(I,NLEV).EQ.1 ) THEN
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1)
L = NLEVM1 + LMIN - LL
DO L =LMINQ,NLEVM1