Symbol Description Uses
jm 910


File Line number Procedure Code
./pkg/diagnostics/prestopres.F 34 PRESTOPRES 
      integer  i,l,im,jm,lm,myThid
./pkg/diagnostics/prestopres.F 36 PRESTOPRES 
      _RL  qprs(im,jm)
./pkg/diagnostics/prestopres.F 37 PRESTOPRES 
      _RL  qinp(im,jm,lm)
./pkg/diagnostics/prestopres.F 38 PRESTOPRES 
      _RL   pkz(im,jm,lm)
./pkg/diagnostics/prestopres.F 39 PRESTOPRES 
      _RL pksrf(im,jm)
./pkg/diagnostics/prestopres.F 4 PRESTOPRES 
      subroutine PRESTOPRES (qprs,qinp,pkz,pksrf,ptop,p,im,jm,lm,myThid)
./pkg/diagnostics/prestopres.F 56 PRESTOPRES 
      do i=1,im*jm
./pkg/diagnostics/prestopres.F 66 PRESTOPRES 
         do i=2,im*jm
./pkg/diagnostics/prestopres.F 72 PRESTOPRES 
         do i=1,im*jm
./pkg/diagnostics/prestopres.F 91 PRESTOPRES 
      do i=1,im*jm
./pkg/fizhi/fizhi_rayleigh.F 103 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 112 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 121 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 38 RAYLEIGH 
      integer myid,im,jm,lm,bi,bj
./pkg/fizhi/fizhi_rayleigh.F 39 RAYLEIGH 
      _RL zsurf(im,jm),pres(im,jm,lm),pkap(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 40 RAYLEIGH 
      _RL pekap(im,jm,lm+1)
./pkg/fizhi/fizhi_rayleigh.F 41 RAYLEIGH 
      _RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 42 RAYLEIGH 
      _RL rfu(im,jm,lm),rfv(im,jm,lm),rft(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 45 RAYLEIGH 
      _RL rf(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 46 RAYLEIGH 
      _RL z(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 47 RAYLEIGH 
      _RL dz(im,jm,lm)
./pkg/fizhi/fizhi_rayleigh.F 52 RAYLEIGH 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_rayleigh.F 5 RAYLEIGH 
      subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm,
./pkg/fizhi/fizhi_rayleigh.F 65 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 73 RAYLEIGH 
      do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 80 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 88 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 126 GWDRAG 
      do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 136 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 144 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 158 GWDRAG 
      call STRIPIT ( phis_std,std,im*jm,im*jm,istrip,1,n )
./pkg/fizhi/fizhi_gwdrag.F 160 GWDRAG 
      call STRIPIT ( pz,ps,im*jm,im*jm,istrip,1 ,n )
./pkg/fizhi/fizhi_gwdrag.F 161 GWDRAG 
      call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 162 GWDRAG 
      call STRIPIT ( vz,vs,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 163 GWDRAG 
      call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 164 GWDRAG 
      call STRIPIT ( pl,plstr,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 165 GWDRAG 
      call STRIPIT ( ple,plestr,im*jm,im*jm,istrip,Lm+1,n )
./pkg/fizhi/fizhi_gwdrag.F 166 GWDRAG 
      call STRIPIT ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 167 GWDRAG 
      call STRIPITINT ( nthin,nthinstr,im*jm,im*jm,istrip,1,n )
./pkg/fizhi/fizhi_gwdrag.F 168 GWDRAG 
      call STRIPITINT ( nbase,nbasestr,im*jm,im*jm,istrip,1,n )
./pkg/fizhi/fizhi_gwdrag.F 175 GWDRAG 
      call PASTIT( dragus,dragu,istrip,im*jm,im*jm,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 176 GWDRAG 
      call PASTIT( dragvs,dragv,istrip,im*jm,im*jm,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 177 GWDRAG 
      call PASTIT( dragxs,dragx,istrip,im*jm,im*jm,1 ,n )
./pkg/fizhi/fizhi_gwdrag.F 178 GWDRAG 
      call PASTIT( dragys,dragy,istrip,im*jm,im*jm,1 ,n )
./pkg/fizhi/fizhi_gwdrag.F 185 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 206 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 215 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 224 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 249 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 255 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 261 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 272 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 278 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 284 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 43 GWDRAG 
      integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal
./pkg/fizhi/fizhi_gwdrag.F 44 GWDRAG 
      _RL pz(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 45 GWDRAG 
      _RL pl(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 46 GWDRAG 
      _RL ple(im,jm,Lm+1)
./pkg/fizhi/fizhi_gwdrag.F 47 GWDRAG 
      _RL dpres(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 48 GWDRAG 
      _RL pkz(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 49 GWDRAG 
      _RL uz(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 50 GWDRAG 
      _RL vz(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 51 GWDRAG 
      _RL tz(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 52 GWDRAG 
      _RL qz(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 53 GWDRAG 
      _RL phis_var(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 55 GWDRAG 
      _RL dudt(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 56 GWDRAG 
      _RL dvdt(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 57 GWDRAG 
      _RL dtdt(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 5 GWDRAG 
     .         dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal)
./pkg/fizhi/fizhi_gwdrag.F 61 GWDRAG 
      _RL tv(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 62 GWDRAG 
      _RL dragu(im,jm,Lm), dragv(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 63 GWDRAG 
      _RL dragt(im,jm,Lm)
./pkg/fizhi/fizhi_gwdrag.F 64 GWDRAG 
      _RL dragx(im,jm), dragy(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 65 GWDRAG 
      _RL sumu(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 66 GWDRAG 
      integer nthin(im,jm),nbase(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 69 GWDRAG 
      _RL phis_std(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 84 GWDRAG 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_gwdrag.F 98 GWDRAG 
      do j=1,jm
./pkg/fizhi/fizhi_lwrad.F 109 LWRIO 
        do j =1,jm
./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)
./pkg/fizhi/fizhi_lwrad.F 142 LWRIO 
       call STRIPITINT (landtype,lwi,im*jm,im*jm,istrip,1,nn)
./pkg/fizhi/fizhi_lwrad.F 21 LWRIO 
      integer im,jm,lm
./pkg/fizhi/fizhi_lwrad.F 22 LWRIO 
      _RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1)
./pkg/fizhi/fizhi_lwrad.F 23 LWRIO 
      _RL dpres(im,jm,lm),pkht(im,jm,lm+1),pkz(im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 245 LWRIO 
       CALL PASTE ( flx   (1,lm+1),RADLWG,ISTRIP,im*jm,1,NN )
./pkg/fizhi/fizhi_lwrad.F 246 LWRIO 
       CALL PASTE ( flxclr(1,lm+1),LWGCLR,ISTRIP,im*jm,1,NN )
./pkg/fizhi/fizhi_lwrad.F 248 LWRIO 
       CALL PASTE (  sgmt4, st4,ISTRIP,im*jm,1,NN )
./pkg/fizhi/fizhi_lwrad.F 249 LWRIO 
       CALL PASTE ( dsgmt4,dst4,ISTRIP,im*jm,1,NN )
./pkg/fizhi/fizhi_lwrad.F 24 LWRIO 
      _RL tz(im,jm,lm),qz(im,jm,lm),oz(im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 255 LWRIO 
      CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_lwrad.F 256 LWRIO 
      CALL PASTE(flxclr(1,1),tempor2,ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_lwrad.F 269 LWRIO 
      CALL PASTE ( tmpstrip ,tmpimjm ,ISTRIP,im*jm,lm,NN )
./pkg/fizhi/fizhi_lwrad.F 26 LWRIO 
      _RL emissivity(im,jm,10)
./pkg/fizhi/fizhi_lwrad.F 270 LWRIO 
      CALL PASTE ( DTRAD ,DTRADLW ,ISTRIP,im*jm,lm,NN )
./pkg/fizhi/fizhi_lwrad.F 271 LWRIO 
      CALL PASTE ( DTRADC,DTRADLWC,ISTRIP,im*jm,lm,NN )
./pkg/fizhi/fizhi_lwrad.F 272 LWRIO 
      CALL PASTE ( dtdtg ,dlwdtg  ,ISTRIP,im*jm,lm,NN )
./pkg/fizhi/fizhi_lwrad.F 27 LWRIO 
      _RL tgz(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm)
./pkg/fizhi/fizhi_lwrad.F 288 LWRIO 
        do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F 28 LWRIO 
      _RL dtradlw(im,jm,lm),dlwdtg (im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 297 LWRIO 
        do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F 29 LWRIO 
      _RL dtradlwc(im,jm,lm),lwgclr(im,jm)
./pkg/fizhi/fizhi_lwrad.F 306 LWRIO 
        do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F 31 LWRIO 
      _RL cldlw(im,jm,lm),clwmo(im,jm,lm),lwlz(im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 334 LWRIO 
      do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F 34 LWRIO 
      _RL qliqave(im,jm,lm),fccave(im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 35 LWRIO 
      integer landtype(im,jm)
./pkg/fizhi/fizhi_lwrad.F 41 LWRIO 
      _RL cldtot (im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 42 LWRIO 
      _RL cldmxo (im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 70 LWRIO 
      _RL tmpimjm(im,jm,lm)
./pkg/fizhi/fizhi_lwrad.F 71 LWRIO 
      _RL tempor1(im,jm),tempor2(im,jm)
./pkg/fizhi/fizhi_lwrad.F 77 LWRIO 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_lwrad.F 7 LWRIO 
     .                  im,jm,lm,
./pkg/fizhi/fizhi_lwrad.F 98 LWRIO 
        do j =1,jm
./pkg/fizhi/fizhi_utils.F 655 GRD2MSC 
      integer im,jm,mxchps,nchp
./pkg/fizhi/fizhi_utils.F 678 MSC2GRD 
      integer im,jm,mxchps,nchp
./pkg/fizhi/fizhi_utils.F 897 PKAPPA 
      subroutine PKAPPA (im,jm,lm,ple,pkle,pkz)
./pkg/fizhi/fizhi_utils.F 912 PKAPPA 
      integer   im,jm,lm
./pkg/fizhi/fizhi_utils.F 913 PKAPPA 
      _RL ple(im,jm,lm+1)
./pkg/fizhi/fizhi_utils.F 914 PKAPPA 
      _RL pkle(im,jm,lm+1)
./pkg/fizhi/fizhi_utils.F 915 PKAPPA 
      _RL pkz(im,jm,lm)
./pkg/fizhi/fizhi_utils.F 923 PKAPPA 
      do j = 1,jm
./pkg/fizhi/update_chemistry_exports.F 111 INTERP_CHEMISTRY 
     . qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad)
./pkg/fizhi/update_chemistry_exports.F 121 INTERP_CHEMISTRY 
      integer im,jm,lm
./pkg/fizhi/update_chemistry_exports.F 122 INTERP_CHEMISTRY 
      _RL qz(im,jm,lm),plz(im,jm,lm)
./pkg/fizhi/update_chemistry_exports.F 123 INTERP_CHEMISTRY 
      _RL xlat(im,jm)
./pkg/fizhi/update_chemistry_exports.F 124 INTERP_CHEMISTRY 
      _RL ozrad(im,jm,lm,nSx,nSy)
./pkg/fizhi/update_chemistry_exports.F 125 INTERP_CHEMISTRY 
      _RL qzrad(im,jm,lm,nSx,nSy)
./pkg/fizhi/update_chemistry_exports.F 131 INTERP_CHEMISTRY 
      call INTERP_QZ (stratq,nwatlevs,nwatlats,watlevs,watlats,im*jm,
./pkg/fizhi/update_chemistry_exports.F 133 INTERP_CHEMISTRY 
      call INTERP_OZ (ozone ,nozlevs,nozlats,ozlevs,ozlats,im*jm,
./pkg/fizhi/slprs.F 21 SLPRS 
      integer im,jm,lm
./pkg/fizhi/slprs.F 22 SLPRS 
      _RL  SLP   (im*jm)
./pkg/fizhi/slprs.F 23 SLPRS 
      _RL  PHIS  (im*jm),  THZ  (im*jm,lm)
./pkg/fizhi/slprs.F 24 SLPRS 
      _RL  lwmask(im*jm)
./pkg/fizhi/slprs.F 25 SLPRS 
      _RL  ple(im*jm,lm+1)
./pkg/fizhi/slprs.F 33 SLPRS 
      _RL  tm (im*jm)
./pkg/fizhi/slprs.F 34 SLPRS 
      integer Ltop (im*jm)
./pkg/fizhi/slprs.F 43 SLPRS 
      do i=1,im*jm
./pkg/fizhi/slprs.F 49 SLPRS 
       do i=1,im*jm
./pkg/fizhi/slprs.F 57 SLPRS 
      do i=1,im*jm
./pkg/fizhi/slprs.F 5 SLPRS 
      subroutine SLPRS (PHIS,PLE,THZ,lwmask,im,jm,lm,SLP)
./pkg/fizhi/slprs.F 65 SLPRS 
      do i=1,im*jm
./pkg/fizhi/update_earth_exports.F 1005 GETEMISS 
      do j = 1,jm
./pkg/fizhi/update_earth_exports.F 1011 GETEMISS 
     .  nchptot,fracg,tmpij,im,jm)
./pkg/fizhi/update_earth_exports.F 1012 GETEMISS 
      do j = 1,jm
./pkg/fizhi/update_earth_exports.F 1201 GET_LANDFRAC 
      subroutine GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype,
./pkg/fizhi/update_earth_exports.F 1210 GET_LANDFRAC 
      integer im,jm,nSx,nSy,bi,bj,maxtyp
./pkg/fizhi/update_earth_exports.F 1211 GET_LANDFRAC 
      integer surftype(im,jm,maxtyp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 1212 GET_LANDFRAC 
      _RL tilefrac(im,jm,maxtyp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 1213 GET_LANDFRAC 
      _RL frac(im,jm)
./pkg/fizhi/update_earth_exports.F 1217 GET_LANDFRAC 
      do j=1,jm
./pkg/fizhi/update_earth_exports.F 1224 GET_LANDFRAC 
      do j=1,jm
./pkg/fizhi/update_earth_exports.F 808 GETALB 
      subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm,
./pkg/fizhi/update_earth_exports.F 850 GETALB 
      integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj
./pkg/fizhi/update_earth_exports.F 851 GETALB 
      _RL cosz(im,jm),fraci(im,jm),fracg(im,jm)
./pkg/fizhi/update_earth_exports.F 855 GETALB 
      _RL albvr(im,jm,nSx,nSy),albvf(im,jm,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 856 GETALB 
      _RL albnr(im,jm,nSx,nSy),albnf(im,jm,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 867 GETALB 
      _RL alboc(im,jm)
./pkg/fizhi/update_earth_exports.F 871 GETALB 
      _RL tmpij(im,jm)
./pkg/fizhi/update_earth_exports.F 886 GETALB 
      call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland)
./pkg/fizhi/update_earth_exports.F 901 GETALB 
     .                                     fracg,tmpij,im,jm)
./pkg/fizhi/update_earth_exports.F 914 GETALB 
     .                                     fracg,tmpij,im,jm)
./pkg/fizhi/update_earth_exports.F 926 GETALB 
     .                                     fracg,tmpij,im,jm)
./pkg/fizhi/update_earth_exports.F 938 GETALB 
     .                                     fracg,tmpij,im,jm)
./pkg/fizhi/update_earth_exports.F 948 GETEMISS 
      subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 979 GETEMISS 
      integer im,jm,nchp,nchptot,nSx,nSy,bi,bj
./pkg/fizhi/update_earth_exports.F 980 GETEMISS 
      _RL fracg(im,jm)
./pkg/fizhi/update_earth_exports.F 985 GETEMISS 
      _RL emiss(im,jm,10,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 988 GETEMISS 
      _RL tmpij(im,jm)
./pkg/fizhi/fizhi_moist.F 1057 MOISTIO 
      do j = 1,jm
./pkg/fizhi/fizhi_moist.F 1073 MOISTIO 
       do j=1,jm
./pkg/fizhi/fizhi_moist.F 1090 MOISTIO 
       do j=1,jm
./pkg/fizhi/fizhi_moist.F 124 MOISTIO 
      _RL   cldlz(istrip,lm), cldwater(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 133 MOISTIO 
      _RL    psubcld    (istrip), psubcldg (im,jm)
./pkg/fizhi/fizhi_moist.F 134 MOISTIO 
      _RL    psubcld_cnt(istrip), psubcldgc(im,jm)
./pkg/fizhi/fizhi_moist.F 148 MOISTIO 
      _RL tmpdiag(im,jm),tmpdiag2(im,jm)
./pkg/fizhi/fizhi_moist.F 19 MOISTIO 
      integer im,jm,lm
./pkg/fizhi/fizhi_moist.F 213 MOISTIO 
      do j = 1,jm
./pkg/fizhi/fizhi_moist.F 222 MOISTIO 
       DO j = 1,jm
./pkg/fizhi/fizhi_moist.F 235 MOISTIO 
      do j = 1,jm
./pkg/fizhi/fizhi_moist.F 23 MOISTIO 
      _RL pz(im,jm),plz(im,jm,lm),plze(im,jm,lm+1),dpres(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 247 MOISTIO 
       do j = 1,jm
./pkg/fizhi/fizhi_moist.F 24 MOISTIO 
      _RL pkht(im,jm,lm+1),pkl(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 257 MOISTIO 
      do indx = 1,im*jm
./pkg/fizhi/fizhi_moist.F 25 MOISTIO 
      _RL tz(im,jm,lm),qz(im,jm,lm,ntracerin)
./pkg/fizhi/fizhi_moist.F 265 MOISTIO 
       do indx = 1,im*jm
./pkg/fizhi/fizhi_moist.F 26 MOISTIO 
      _RL uz(im,jm,lm),vz(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 279 MOISTIO 
       do indx = 1,im*jm
./pkg/fizhi/fizhi_moist.F 27 MOISTIO 
      _RL qqz(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 289 MOISTIO 
       do indx = 1,im*jm
./pkg/fizhi/fizhi_moist.F 28 MOISTIO 
      _RL dumoist(im,jm,lm),dvmoist(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 29 MOISTIO 
      _RL dtmoist(im,jm,lm),dqmoist(im,jm,lm,ntracerin)
./pkg/fizhi/fizhi_moist.F 307 MOISTIO 
      do j=1,jm
./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 337 MOISTIO 
       CALL STRINT( levgather, pbl     ,im*jm,ISTRIP,1 ,NN )
./pkg/fizhi/fizhi_moist.F 33 MOISTIO 
      _RL rainlsp(im,jm),rainconv(im,jm),snowfall(im,jm)
./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 35 MOISTIO 
      _RL cldlsp_sw(im,jm,lm),cldras_sw(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 36 MOISTIO 
      _RL cldtot_sw(im,jm,lm),swlz(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 38 MOISTIO 
      _RL  cldlsp_lw(im,jm,lm),cldras_lw(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 39 MOISTIO 
      _RL  cldtot_lw(im,jm,lm),lwlz(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 53 MOISTIO 
      _RL   cldsr(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 598 MOISTIO 
      call PASTE( CVTH,deltgather,istrip,im*jm,lm,NN )
./pkg/fizhi/fizhi_moist.F 599 MOISTIO 
      call PASTE(  CVQ,delqgather,istrip,im*jm,lm,NN )
./pkg/fizhi/fizhi_moist.F 59 MOISTIO 
      _RL cldprs(im,jm),cldtmp(im,jm)
./pkg/fizhi/fizhi_moist.F 601 MOISTIO 
      call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN )
./pkg/fizhi/fizhi_moist.F 609 MOISTIO 
      call PASTE( cldmas,tmpgather,istrip,im*jm,lm,NN)
./pkg/fizhi/fizhi_moist.F 60 MOISTIO 
      _RL cldhi (im,jm),cldlow(im,jm)
./pkg/fizhi/fizhi_moist.F 610 MOISTIO 
      call PASTE(detrain,pkegather,istrip,im*jm,lm,NN)
./pkg/fizhi/fizhi_moist.F 611 MOISTIO 
      call PASTE(psubcld    ,psubcldg ,istrip,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 612 MOISTIO 
      call PASTE(psubcld_cnt,psubcldgc,istrip,im*jm,1,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_moist.F 61 MOISTIO 
      _RL cldmid(im,jm),totcld(im,jm)
./pkg/fizhi/fizhi_moist.F 63 MOISTIO 
      _RL   CLDLS(im,jm,lm)  , CPEN(im,jm,lm)
./pkg/fizhi/fizhi_moist.F 643 MOISTIO 
       CALL PSTBMP(TMP1(1,L),delqgather(1,L),ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 648 MOISTIO 
       CALL PSTBMP(TMP1(1,L),deltgather(1,L),ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 64 MOISTIO 
      _RL    tmpimjm(im,jm)
./pkg/fizhi/fizhi_moist.F 655 MOISTIO 
       call PASTE(tmp1(1,L),deltrnev(1,L),istrip,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 65 MOISTIO 
      _RL    lsp_new(im,jm)
./pkg/fizhi/fizhi_moist.F 660 MOISTIO 
       call PASTE(tmp1(1,L),delqrnev(1,L),istrip,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 66 MOISTIO 
      _RL   conv_new(im,jm)
./pkg/fizhi/fizhi_moist.F 67 MOISTIO 
      _RL   snow_new(im,jm)
./pkg/fizhi/fizhi_moist.F 689 MOISTIO 
      call PASTE (  srcld,   cldsr,istrip,im*jm,lm,nn )
./pkg/fizhi/fizhi_moist.F 690 MOISTIO 
      call PASTE (  cldlz,cldwater,istrip,im*jm,lm,nn )
./pkg/fizhi/fizhi_moist.F 691 MOISTIO 
      call PASTE ( clsbth,   cldls,istrip,im*jm,lm,nn )
./pkg/fizhi/fizhi_moist.F 692 MOISTIO 
      call PASTE ( clboth,   cpen ,istrip,im*jm,lm,nn )
./pkg/fizhi/fizhi_moist.F 69 MOISTIO 
      _RL  qqcolmin(im,jm)
./pkg/fizhi/fizhi_moist.F 70 MOISTIO 
      _RL  qqcolmax(im,jm)
./pkg/fizhi/fizhi_moist.F 71 MOISTIO 
      integer levpbl(im,jm)
./pkg/fizhi/fizhi_moist.F 731 MOISTIO 
      CALL PASTE (tmp1(1,1), lsp_new,ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 732 MOISTIO 
      CALL PASTE (tmp1(1,2),conv_new,ISTRIP,im*jm,1,NN)
./pkg/fizhi/fizhi_moist.F 733