Symbol Description Uses
jm 896


File Line number Procedure Code
./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/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_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_turb.F 100 TURBIO 
      integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop
./pkg/fizhi/fizhi_turb.F 104 TURBIO 
      _RL pz(im,jm),uz(im,jm,nlay),vz(im,jm,nlay),tz(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 105 TURBIO 
      _RL qz(im,jm,nlay,ntracers)
./pkg/fizhi/fizhi_turb.F 106 TURBIO 
      _RL plz(im,jm,nlay),plze(im,jm,nlay+1),dpres(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 107 TURBIO 
      _RL pkht(im,jm,nlay+1),pkz(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 110 TURBIO 
      _RL tgz(im, jm),fracland(im,jm)
./pkg/fizhi/fizhi_turb.F 111 TURBIO 
      integer landtype(im,jm)
./pkg/fizhi/fizhi_turb.F 116 TURBIO 
      _RL alai(nchp),agrn(nchp),thkz(im,jm)
./pkg/fizhi/fizhi_turb.F 118 TURBIO 
      _RL duturb(im,jm,nlay),dvturb(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 119 TURBIO 
      _RL dtturb(im,jm,nlay),dqturb(im,jm,nlay,ntracers)
./pkg/fizhi/fizhi_turb.F 120 TURBIO 
      _RL st4(im,jm),dst4(im,jm)
./pkg/fizhi/fizhi_turb.F 1215 TURBIO 
     .                                              duturb(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 1217 TURBIO 
     .                                              dvturb(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 1219 TURBIO 
     .                                              dtturb(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 121 TURBIO 
      _RL radswg(im,jm),radswt(im,jm),radlwg(im,jm)
./pkg/fizhi/fizhi_turb.F 1222 TURBIO 
     .                                           dqturb(1,1,L,nt),im,jm)
./pkg/fizhi/fizhi_turb.F 1225 TURBIO 
     .                                              qqgrid(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 1228 TURBIO 
     .                                              fcctmp(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 122 TURBIO 
      _RL fdifpar(im,jm),fdirpar(im,jm)
./pkg/fizhi/fizhi_turb.F 1230 TURBIO 
     .                                             qliqtmp(1,1,L),im,jm)
./pkg/fizhi/fizhi_turb.F 1235 TURBIO 
      call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay )
./pkg/fizhi/fizhi_turb.F 123 TURBIO 
      _RL rainlsp(im,jm),rainconv(im,jm),snowfall(im,jm)
./pkg/fizhi/fizhi_turb.F 1240 TURBIO 
       do j=1,jm
./pkg/fizhi/fizhi_turb.F 124 TURBIO 
      _RL tempref (im,jm)
./pkg/fizhi/fizhi_turb.F 1253 TURBIO 
        do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1264 TURBIO 
      do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1269 TURBIO 
      call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm)
./pkg/fizhi/fizhi_turb.F 126 TURBIO 
      _RL qliqavesw(im,jm,nlay),qliqavelw(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 127 TURBIO 
      _RL fccavelw (im,jm,nlay),fccavesw (im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 1284 TURBIO 
       do j =1,jm
./pkg/fizhi/fizhi_turb.F 128 TURBIO 
      _RL qqgrid   (im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 1302 TURBIO 
        do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1311 TURBIO 
        do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1320 TURBIO 
        do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1329 TURBIO 
        do j = 1,jm
./pkg/fizhi/fizhi_turb.F 1362 TURBIO 
      do j = 1,jm
./pkg/fizhi/fizhi_turb.F 144 TURBIO 
      _RL qliqtmp(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 145 TURBIO 
      _RL  fcctmp(im,jm,nlay)
./pkg/fizhi/fizhi_turb.F 146 TURBIO 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_turb.F 147 TURBIO 
      _RL   thtgz(im*jm)
./pkg/fizhi/fizhi_turb.F 284 TURBIO 
       ijall    =   im * jm
./pkg/fizhi/fizhi_turb.F 336 TURBIO 
       do j =1,jm
./pkg/fizhi/fizhi_turb.F 352 TURBIO 
      call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 354 TURBIO 
      call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 359 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 363 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 367 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 371 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 375 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 379 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 380 TURBIO 
      call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 381 TURBIO 
      call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 382 TURBIO 
      call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 383 TURBIO 
      call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 458 TURBIO 
       call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm)
./pkg/fizhi/fizhi_turb.F 5 TURBIO 
      subroutine TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj
./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/seaice/lsr.F 42 LSR 
      INTEGER i, j, m, bi, bj, j1, j2, im, jm