CALL STRIP (OZ,OZL      ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (PLZE,ple    ,im*jm,ISTRIP,lm+1 ,NN)

       CALL STRIP (PLZ ,pl     ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (PKZ ,pk     ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (PKHT,pke    ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (TZ,TZL      ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (qz,SHZL     ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (cldtot,CLRO ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (cldmxo,CLMO ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (lwlz,cldlz  ,im*jm,ISTRIP,lm   ,NN)

       CALL STRIP (tgz,tsurf   ,im*jm,ISTRIP,1    ,NN)

       CALL STRIP (emissivity,emiss,im*jm,ISTRIP,10,NN)

       DO I = 1,ISTRIP

       DO I = 1,ISTRIP

      DO I = 1,ISTRIP

      DO I = 1,ISTRIP

       DO I = 1,ISTRIP

       CALL PASTE ( flx   (1,lm+1),RADLWG,ISTRIP,im*jm,1,NN )

       CALL PASTE ( flxclr(1,lm+1),LWGCLR,ISTRIP,im*jm,1,NN )

       CALL PASTE (  sgmt4, st4,ISTRIP,im*jm,1,NN )

       CALL PASTE ( dsgmt4,dst4,ISTRIP,im*jm,1,NN )

      CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN)

      CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN)

      DO I = 1,ISTRIP

      CALL PASTE ( tmpstrip ,tmpimjm ,ISTRIP,im*jm,lm,NN )

      CALL PASTE ( DTRAD ,DTRADLW ,ISTRIP,im*jm,lm,NN )

      CALL PASTE ( DTRADC,DTRADLWC,ISTRIP,im*jm,lm,NN )

      CALL PASTE ( dtdtg ,dlwdtg  ,ISTRIP,im*jm,lm,NN )

      _RL ADELPL(ISTRIP,lm)

      _RL OZL(ISTRIP,lm),TZL(ISTRIP,lm)

      _RL SHZL(ISTRIP,lm),CLRO(ISTRIP,lm)

      _RL CLMO(ISTRIP,lm)

      _RL flx(ISTRIP,lm+1),flxclr(ISTRIP,lm+1)

      _RL SGMT4(ISTRIP),TSURF(ISTRIP),dsgmt4(ISTRIP)

      _RL      TL(ISTRIP,lm)  , SHL(ISTRIP,lm)

      _RL      PL(ISTRIP,lm)  , PLK(ISTRIP,lm)

      _RL    PLKE(ISTRIP,lm+1)

      _RL      TH(ISTRIP,lm)  ,CVTH(ISTRIP,lm)

      _RL   CVQ(ISTRIP,lm)

      _RL      UL(ISTRIP,lm,ntracerin+2-ptracer)

      _RL  CLMAXO(ISTRIP,lm),CLBOTH(ISTRIP,lm)

      _RL  CLSBTH(ISTRIP,lm)

      _RL    TMP1(ISTRIP,lm),  TMP2(ISTRIP,lm)

      _RL    TMP3(ISTRIP,lm),  TMP4(ISTRIP,lm+1)

      _RL    TMP5(ISTRIP,lm+1)

      integer   ITMP1(ISTRIP,lm), ITMP2(ISTRIP,lm)

      _RL   PRECIP(ISTRIP), PCNET(ISTRIP)

      _RL   SP(ISTRIP),  PREP(ISTRIP)

      _RL   PCPEN (ISTRIP,lm)

       CALL STRIP (  pigather, SP      ,im*jm,ISTRIP,1 ,NN )

       CALL STRIP ( pkzgather, PLK     ,im*jm,ISTRIP,lm,NN )

       CALL STRIP ( pkegather, PLKE    ,im*jm,ISTRIP,lm+1,NN )

       CALL STRIP ( plzgather, PL      ,im*jm,ISTRIP,lm,NN )

       CALL STRIP ( plegather, PLE     ,im*jm,ISTRIP,lm+1,NN )

       CALL STRIP (  dpgather, dp      ,im*jm,ISTRIP,lm,NN )

       CALL STRIP (  thgather, TH      ,im*jm,ISTRIP,lm,NN )

       CALL STRIP (  shgather, SHL     ,im*jm,ISTRIP,lm,NN )

       CALL STRINT( levgather, pbl     ,im*jm,ISTRIP,1 ,NN )

      DO I = 1,ISTRIP

      CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN)

      CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN)

      DO I=1,ISTRIP

       CALL RNEVP (NN,ISTRIP,lm,TL,SHL,PCPEN,PL,CLFRAC,SP,DP,PLKE,

       DO I =1,ISTRIP

       CALL PSTBMP(TMP1(1,L),delqgather(1,L),ISTRIP,im*jm,1,NN)

       DO I =1,ISTRIP

       CALL PSTBMP(TMP1(1,L),deltgather(1,L),ISTRIP,im*jm,1,NN)

       DO I =1,ISTRIP

       DO I =1,ISTRIP

      CALL PASTE (tmp1(1,1), lsp_new,ISTRIP,im*jm,1,NN)

      CALL PASTE (tmp1(1,2),conv_new,ISTRIP,im*jm,1,NN)

      CALL PASTE (tmp1(1,3),snow_new,ISTRIP,im*jm,1,NN)

      CALL PASTE (pcnet,raincgath,ISTRIP,im*jm,1,NN)

      CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN )

      CALL STRIP ( plze,  ple   ,im*jm,ISTRIP,lm+1,NN)

      CALL STRIP ( pkz ,  pk    ,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( tdry,  tzl   ,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( qz  ,  qzl   ,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( oz  ,  ozl   ,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( tau ,  taul  ,im*jm,ISTRIP,lm  ,NN)

      CALL STRIP ( albvisdr,albuvdr,im*jm,ISTRIP,1,NN )

      CALL STRIP ( albvisdf,albuvdf,im*jm,ISTRIP,1,NN )

      CALL STRIP ( albnirdr,albirdr,im*jm,ISTRIP,1,NN )

      CALL STRIP ( albnirdf,albirdf,im*jm,ISTRIP,1,NN )

      _RL PK(ISTRIP,lm)

      _RL qzl(ISTRIP,lm),CLRO(ISTRIP,lm)

      _RL TZL(ISTRIP,lm)

      _RL OZL(ISTRIP,lm)

      _RL PLE(ISTRIP,lm+1)

      _RL COSZ(ISTRIP)

      _RL dpstrip(ISTRIP,lm)

      _RL albuvdr(ISTRIP),albuvdf(ISTRIP)

      _RL albirdr(ISTRIP),albirdf(ISTRIP)

      _RL difpar (ISTRIP),dirpar (ISTRIP)