DO 1000 NN=1,NPCS

       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)

       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)

      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 )

      SUBROUTINE RAS( NN, LNG, LENC, K, NLTOP, nlayr, DT

       SUBROUTINE RNEVP(NN,IRUN,NLAY,TL,QL,RAIN,PL,CLFRAC,SP,DP,PLKE,

      DO 1000 NN = 1,NPCS

       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 )

      CALL RAS ( NN,istrip,nindeces(nsubcl),NLRAS,NLTOP,lm,TMSTP

      call PASTE( CVTH,deltgather,istrip,im*jm,lm,NN )

      call PASTE(  CVQ,delqgather,istrip,im*jm,lm,NN )

      call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN )

      call PASTE( cldmas,tmpgather,istrip,im*jm,lm,NN)

      call PASTE(detrain,pkegather,istrip,im*jm,lm,NN)

      call PASTE(psubcld    ,psubcldg ,istrip,im*jm,1,NN)

      call PASTE(psubcld_cnt,psubcldgc,istrip,im*jm,1,NN)

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

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

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

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

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

       call PASTE(tmp1(1,L),deltrnev(1,L),istrip,im*jm,1,NN)

       call PASTE(tmp1(1,L),delqrnev(1,L),istrip,im*jm,1,NN)

      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 )

      SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR,

       CALL SFCFLX(NN,U(1,NLEV),V(1,NLEV),

       SUBROUTINE SFCFLX(NN,VUS,VVS,VTHV1,VTHV2,VTH1,VTH2,VSH1,

       CALL LINADJ(NN,VRIB,VRIB,VWS,

      CALL LINADJ(NN,VRIB1,VRIB,VWS1,

       CALL LINADJ(NN,VRIB1,VRIB,VWS,

      SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER,

      INTEGER NN,bi,bj,myThid

      _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NN,nSx,nSy)

      DO K=1,NN

      DO K=1,NN

      SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid )

      INTEGER   isize, phniter, NN

      real*4 xx(NN), gg(NN)

      subroutine LSWRI( isize, phniter, NN, xx, gg, lphprint )