Symbol Description Uses
STRIP 50



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 410 SWRIO
      CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 412 SWRIO
      CALL STRIP ( plze,  ple   ,im*jm,ISTRIP,lm+1,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 413 SWRIO
      CALL STRIP ( pkz ,  pk    ,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 414 SWRIO
      CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 415 SWRIO
      CALL STRIP ( tdry,  tzl   ,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 416 SWRIO
      CALL STRIP ( qz  ,  qzl   ,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 417 SWRIO
      CALL STRIP ( oz  ,  ozl   ,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 418 SWRIO
      CALL STRIP ( tau ,  taul  ,im*jm,ISTRIP,lm  ,NN)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 420 SWRIO
      CALL STRIP ( albvisdr,albuvdr,im*jm,ISTRIP,1,NN )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 421 SWRIO
      CALL STRIP ( albvisdf,albuvdf,im*jm,ISTRIP,1,NN )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 422 SWRIO
      CALL STRIP ( albnirdr,albirdr,im*jm,ISTRIP,1,NN )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 423 SWRIO
      CALL STRIP ( albnirdf,albirdf,im*jm,ISTRIP,1,NN )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 425 SWRIO
      call STRIP ( cldtot,clro,im*jm,istrip,lm,nn )
./pkg/fizhi/fizhi_swrad.F 409 SWRIO
      CALL STRIP ( zenith,COSZ,im*jm,ISTRIP,1,NN )
./pkg/fizhi/fizhi_swrad.F 411 SWRIO
      CALL STRIP ( plze,  ple   ,im*jm,ISTRIP,lm+1,NN)
./pkg/fizhi/fizhi_swrad.F 412 SWRIO
      CALL STRIP ( pkz ,  pk    ,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 413 SWRIO
      CALL STRIP ( dpres,dpstrip,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 414 SWRIO
      CALL STRIP ( tdry,  tzl   ,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 415 SWRIO
      CALL STRIP ( qz  ,  qzl   ,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 416 SWRIO
      CALL STRIP ( oz  ,  ozl   ,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 417 SWRIO
      CALL STRIP ( tau ,  taul  ,im*jm,ISTRIP,lm  ,NN)
./pkg/fizhi/fizhi_swrad.F 419 SWRIO
      CALL STRIP ( albvisdr,albuvdr,im*jm,ISTRIP,1,NN )
./pkg/fizhi/fizhi_swrad.F 420 SWRIO
      CALL STRIP ( albvisdf,albuvdf,im*jm,ISTRIP,1,NN )
./pkg/fizhi/fizhi_swrad.F 421 SWRIO
      CALL STRIP ( albnirdr,albirdr,im*jm,ISTRIP,1,NN )
./pkg/fizhi/fizhi_swrad.F 422 SWRIO
      CALL STRIP ( albnirdf,albirdf,im*jm,ISTRIP,1,NN )
./pkg/fizhi/fizhi_swrad.F 424 SWRIO
      call STRIP ( cldtot,clro,im*jm,istrip,lm,nn )
./pkg/fizhi/fizhi_moist.F 329 MOISTIO
       CALL STRIP (  pigather, SP      ,im*jm,ISTRIP,1 ,NN )
./pkg/fizhi/fizhi_moist.F 330 MOISTIO
       CALL STRIP ( pkzgather, PLK     ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 331 MOISTIO
       CALL STRIP ( pkegather, PLKE    ,im*jm,ISTRIP,lm+1,NN )
./pkg/fizhi/fizhi_moist.F 332 MOISTIO
       CALL STRIP ( plzgather, PL      ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 333 MOISTIO
       CALL STRIP ( plegather, PLE     ,im*jm,ISTRIP,lm+1,NN )
./pkg/fizhi/fizhi_moist.F 334 MOISTIO
       CALL STRIP (  dpgather, dp      ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 335 MOISTIO
       CALL STRIP (  thgather, TH      ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 336 MOISTIO
       CALL STRIP (  shgather, SHL     ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 340 MOISTIO
        call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn )
./pkg/fizhi/fizhi_moist.F 618 MOISTIO
      CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN)
./pkg/fizhi/fizhi_moist.F 619 MOISTIO
      CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN)
./pkg/fizhi/fizhi_utils.F 60 STRIP
      SUBROUTINE STRIP(A,B,IA,IB,L,K)                                           
./pkg/fizhi/fizhi_lwrad.F 128 LWRIO
       CALL STRIP (OZ,OZL      ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 129 LWRIO
       CALL STRIP (PLZE,ple    ,im*jm,ISTRIP,lm+1 ,NN)
./pkg/fizhi/fizhi_lwrad.F 130 LWRIO
       CALL STRIP (PLZ ,pl     ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 131 LWRIO
       CALL STRIP (PKZ ,pk     ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 132 LWRIO
       CALL STRIP (PKHT,pke    ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 133 LWRIO
       CALL STRIP (TZ,TZL      ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 134 LWRIO
       CALL STRIP (qz,SHZL     ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 135 LWRIO
       CALL STRIP (cldtot,CLRO ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 136 LWRIO
       CALL STRIP (cldmxo,CLMO ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 137 LWRIO
       CALL STRIP (lwlz,cldlz  ,im*jm,ISTRIP,lm   ,NN)
./pkg/fizhi/fizhi_lwrad.F 138 LWRIO
       CALL STRIP (tgz,tsurf   ,im*jm,ISTRIP,1    ,NN)
./pkg/fizhi/fizhi_lwrad.F 140 LWRIO
       CALL STRIP (emissivity,emiss,im*jm,ISTRIP,10,NN)