Symbol Description Uses
nchp 526



File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 240 DO_FIZHI
     . phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj),
./pkg/fizhi/do_fizhi.F 35 DO_FIZHI
      integer Nrphin,Nsxin,Nsyin,bi,bj,nchp
./pkg/fizhi/do_fizhi.F 45 DO_FIZHI
      _RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 46 DO_FIZHI
      _RL yymt(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 47 DO_FIZHI
      _RL zetamt(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 48 DO_FIZHI
      _RL xlmt(nchp,Nrphin,Nsxin,Nsyin),khmt(nchp,Nrphin,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 49 DO_FIZHI
      _RL tke(nchp,Nrphin,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 58 DO_FIZHI
      _RL chfr(nchp,Nsxin,Nsyin),alai(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 59 DO_FIZHI
      _RL agrn(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 60 DO_FIZHI
      integer ityp(nchp,Nsxin,Nsyin),igrd(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 61 DO_FIZHI
      _RL chlat(nchp,Nsxin,Nsyin),chlon(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 62 DO_FIZHI
      _RL tcanopy(nchp,Nsxin,Nsyin),tdeep(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 63 DO_FIZHI
      _RL ecanopy(nchp,Nsxin,Nsyin),swetshal(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 64 DO_FIZHI
      _RL swetroot(nchp,Nsxin,Nsyin),swetdeep(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 65 DO_FIZHI
      _RL snodep(nchp,Nsxin,Nsyin),capac(nchp,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 6 DO_FIZHI
     . nchp,nchptot,nchpland,
./pkg/fizhi/fizhi_coms.h 17 NO PROCEDURE
      _RL ctmt(nchp,Nsx,Nsy), xxmt(nchp,Nsx,Nsy), yymt(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_coms.h 18 NO PROCEDURE
      _RL zetamt(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_coms.h 19 NO PROCEDURE
      _RL xlmt(nchp,Nrphys,Nsx,Nsy), khmt(nchp,Nrphys,Nsx,Nsy) 
./pkg/fizhi/fizhi_coms.h 20 NO PROCEDURE
      _RL tke(nchp,Nrphys,Nsx,Nsy)
./pkg/fizhi/fizhi_driver.F 205 FIZHI_DRIVER
     .  nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp,
./pkg/fizhi/fizhi_driver.F 52 FIZHI_DRIVER
      integer nchp,igrd(nchp),nchptot,nchpland,ityp(nchp)
./pkg/fizhi/fizhi_driver.F 67 FIZHI_DRIVER
      _RL chlat(nchp),chlon(nchp),chfr(nchp)
./pkg/fizhi/fizhi_driver.F 68 FIZHI_DRIVER
      _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
./pkg/fizhi/fizhi_driver.F 69 FIZHI_DRIVER
      _RL swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)
./pkg/fizhi/fizhi_driver.F 70 FIZHI_DRIVER
      _RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)
./pkg/fizhi/fizhi_driver.F 71 FIZHI_DRIVER
      _RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)
./pkg/fizhi/fizhi_driver.F 82 FIZHI_DRIVER
      _RL alai(nchp),agrn(nchp)
./pkg/fizhi/fizhi_driver.F 9 FIZHI_DRIVER
     . nchp,chlat,chlon,igrd,nchptot,nchpland,chfr,ityp,
./pkg/fizhi/fizhi_earth_coms.h 17 NO PROCEDURE
      _RL chfr(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_earth_coms.h 18 NO PROCEDURE
      _RL alai(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_earth_coms.h 19 NO PROCEDURE
      _RL agrn(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_earth_coms.h 28 NO PROCEDURE
      integer ityp(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_init_fixed.F 105 FIZHI_INIT_FIXED
     .         nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats,
./pkg/fizhi/fizhi_init_vars.F 228 FIZHI_INIT_VARS
         do i = 1,nchp
./pkg/fizhi/fizhi_init_vars.F 235 FIZHI_INIT_VARS
         do i = 1,nchp
./pkg/fizhi/fizhi_init_veg.F 57 FIZHI_INIT_VEG
      integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg
./pkg/fizhi/fizhi_init_veg.F 60 FIZHI_INIT_VEG
      integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_init_veg.F 63 FIZHI_INIT_VEG
      _RL chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_init_veg.F 7 FIZHI_INIT_VEG
     . maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,
./pkg/fizhi/fizhi_init_vegsurftiles.F 103 FIZHI_INIT_VEGSURFTILES
     .                 temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 104 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 116 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 117 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 129 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 130 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 142 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 143 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 155 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 156 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 168 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 169 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 181 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 182 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 194 FIZHI_INIT_VEGSURFTILES
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 195 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 51 FIZHI_INIT_VEGSURFTILES
      _RL temptile(nchp)
./pkg/fizhi/fizhi_land_SIZE.h 6 NO PROCEDURE
      integer nchp, maxtyp
./pkg/fizhi/fizhi_land_SIZE.h 8 NO PROCEDURE
      parameter (nchp = sNx*sNy*maxtyp)
./pkg/fizhi/fizhi_land_coms.h 10 NO PROCEDURE
      _RL ecanopy(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 11 NO PROCEDURE
      _RL swetshal(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 12 NO PROCEDURE
      _RL swetroot(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 13 NO PROCEDURE
      _RL swetdeep(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 14 NO PROCEDURE
      _RL snodep(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 15 NO PROCEDURE
      _RL capac(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 20 NO PROCEDURE
      _RL chlt(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 21 NO PROCEDURE
      _RL chlon(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 22 NO PROCEDURE
      integer igrd(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 8 NO PROCEDURE
      _RL tcanopy(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 9 NO PROCEDURE
      _RL tdeep(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_mnc_init.F 243 FIZHI_MNC_INIT
      dim(1)      = nchp
./pkg/fizhi/fizhi_mnc_init.F 245 FIZHI_MNC_INIT
      ie(1)       = nchp
./pkg/fizhi/fizhi_mnc_init.F 268 FIZHI_MNC_INIT
      dim(1)      = nchp
./pkg/fizhi/fizhi_mnc_init.F 270 FIZHI_MNC_INIT
      ie(1)       = nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 109 FIZHI_WRITE_VEGTILES
      length_of_rec=MDS_RECLEN( fileprec, nchp, mythid )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 130 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 134 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 138 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 142 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 146 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 150 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 154 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 158 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 164 FIZHI_WRITE_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 168 FIZHI_WRITE_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 175 FIZHI_WRITE_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 179 FIZHI_WRITE_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 186 FIZHI_WRITE_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 190 FIZHI_WRITE_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 197 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 201 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 206 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 210 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 215 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 219 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 224 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 228 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 233 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 237 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 242 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 246 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 251 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 255 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 260 FIZHI_WRITE_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 264 FIZHI_WRITE_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 324 FIZHI_READ_VEGTILES
      Real*8 r8seg(nchp)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 364 FIZHI_READ_VEGTILES
      length_of_rec=MDS_RECLEN( fileprec, nchp, mythid )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 389 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 391 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 397 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 399 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 405 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 407 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 413 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 415 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 424 FIZHI_READ_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 426 FIZHI_READ_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 435 FIZHI_READ_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 437 FIZHI_READ_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 446 FIZHI_READ_VEGTILES
        call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 448 FIZHI_READ_VEGTILES
        do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 457 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 459 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 466 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 468 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 475 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 477 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 484 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 486 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 493 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 495 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 502 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 504 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 511 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 513 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 520 FIZHI_READ_VEGTILES
       call MDS_BYTESWAPR8( nchp, r8seg )
./pkg/fizhi/fizhi_readwrite_vegtiles.F 522 FIZHI_READ_VEGTILES
       do n = 1,nchp
./pkg/fizhi/fizhi_readwrite_vegtiles.F 52 FIZHI_WRITE_VEGTILES
      Real*8 r8seg(nchp)
./pkg/fizhi/fizhi_turb.F 1024 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 102 TURBIO
      integer nchp,nchptot,nchplnd
./pkg/fizhi/fizhi_turb.F 1031 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1038 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1042 TURBIO
      call DIAG_VEGTILE_FILL (stuflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1046 TURBIO
      call DIAG_VEGTILE_FILL (stvflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1055 TURBIO
      call DIAG_VEGTILE_FILL (sttflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1064 TURBIO
      call DIAG_VEGTILE_FILL (stqflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1068 TURBIO
      call DIAG_VEGTILE_FILL (sri,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1072 TURBIO
      call DIAG_VEGTILE_FILL (skh,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1076 TURBIO
      call DIAG_VEGTILE_FILL (skm,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1080 TURBIO
      call DIAG_VEGTILE_FILL (sct,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1084 TURBIO
      call DIAG_VEGTILE_FILL (scu,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1088 TURBIO
      call DIAG_VEGTILE_FILL (swinds,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1092 TURBIO
      call DIAG_VEGTILE_FILL (stuflux(1,nlay),igrd,chfrstr,istrip,nchp,
./pkg/fizhi/fizhi_turb.F 1096 TURBIO
      call DIAG_VEGTILE_FILL (stvflux(1,nlay),igrd,chfrstr,istrip,nchp,
./pkg/fizhi/fizhi_turb.F 10 TURBIO
     5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz
./pkg/fizhi/fizhi_turb.F 1100 TURBIO
      call DIAG_VEGTILE_FILL (sustar,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1104 TURBIO
      call DIAG_VEGTILE_FILL (sz0,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1108 TURBIO
      call DIAG_VEGTILE_FILL (frqtrb,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1112 TURBIO
      call DIAG_VEGTILE_FILL (pbldpth,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1116 TURBIO
      call DIAG_VEGTILE_FILL (stu2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1120 TURBIO
      call DIAG_VEGTILE_FILL (stv2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1124 TURBIO
      call DIAG_VEGTILE_FILL (stt2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 112 TURBIO
      _RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)
./pkg/fizhi/fizhi_turb.F 1135 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1139 TURBIO
      call DIAG_VEGTILE_FILL (stu10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 113 TURBIO
      _RL xlmt(nchp,nlay),khmt(nchp,nlay),tke(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 1143 TURBIO
      call DIAG_VEGTILE_FILL (stv10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1147 TURBIO
      call DIAG_VEGTILE_FILL (stt10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1158 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1167 TURBIO
      call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1171 TURBIO
      call DIAG_VEGTILE_FILL (qa,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1175 TURBIO
      call DIAG_VEGTILE_FILL (swet1,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1179 TURBIO
      call DIAG_VEGTILE_FILL (swet2,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1183 TURBIO
      call DIAG_VEGTILE_FILL (swet3,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1187 TURBIO
      call DIAG_VEGTILE_FILL (capacity,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 118 TURBIO
      _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
./pkg/fizhi/fizhi_turb.F 1191 TURBIO
      call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 119 TURBIO
      _RL swetroot(nchp),swetdeep(nchp),snodep(nchp),capac(nchp)
./pkg/fizhi/fizhi_turb.F 120 TURBIO
      _RL chfr(nchp),chlt(nchp),chlon(nchp)
./pkg/fizhi/fizhi_turb.F 121 TURBIO
      integer igrd(nchp),ityp(nchp)
./pkg/fizhi/fizhi_turb.F 123 TURBIO
      _RL alai(nchp),agrn(nchp),thkz(im*jm,1)
./pkg/fizhi/fizhi_turb.F 1241 TURBIO
      call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1243 TURBIO
      call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1245 TURBIO
      call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1248 TURBIO
      call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1251 TURBIO
      call MSC2GRD(igrd,chfr,  tke(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1254 TURBIO
      call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1256 TURBIO
      call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1309 TURBIO
      call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm)
./pkg/fizhi/fizhi_turb.F 172 TURBIO
      _RL alwcoeff(nchp),blwcoeff(nchp)
./pkg/fizhi/fizhi_turb.F 173 TURBIO
      _RL netsw(nchp)
./pkg/fizhi/fizhi_turb.F 174 TURBIO
      _RL cnvprec(nchp),lsprec(nchp)
./pkg/fizhi/fizhi_turb.F 175 TURBIO
      _RL snowprec(nchp)
./pkg/fizhi/fizhi_turb.F 176 TURBIO
      _RL pardiff(nchp),pardirct(nchp)
./pkg/fizhi/fizhi_turb.F 177 TURBIO
      _RL pmsc(nchp)
./pkg/fizhi/fizhi_turb.F 178 TURBIO
      _RL netlw(nchp)
./pkg/fizhi/fizhi_turb.F 179 TURBIO
      _RL sqscat(nchp), rsoil1(nchp)
./pkg/fizhi/fizhi_turb.F 180 TURBIO
      _RL rsoil2(nchp)
./pkg/fizhi/fizhi_turb.F 181 TURBIO
      _RL rdc(nchp),u2fac(nchp)
./pkg/fizhi/fizhi_turb.F 182 TURBIO
      _RL z2ch(nchp)
./pkg/fizhi/fizhi_turb.F 183 TURBIO
      _RL zoch(nchp),cdrc(nchp)
./pkg/fizhi/fizhi_turb.F 184 TURBIO
      _RL cdsc(nchp)
./pkg/fizhi/fizhi_turb.F 185 TURBIO
      _RL dqsdt(nchp)
./pkg/fizhi/fizhi_turb.F 186 TURBIO
      _RL tground(nchp),qground(nchp)
./pkg/fizhi/fizhi_turb.F 187 TURBIO
      _RL utility(nchp)
./pkg/fizhi/fizhi_turb.F 188 TURBIO
      _RL    qice(nchp)
./pkg/fizhi/fizhi_turb.F 189 TURBIO
      _RL   dqice(nchp)
./pkg/fizhi/fizhi_turb.F 191 TURBIO
      _RL dumsc(nchp,nlay),dvmsc(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 192 TURBIO
      _RL dtmsc(nchp,nlay),dqmsc(nchp,nlay,ntracers)
./pkg/fizhi/fizhi_turb.F 194 TURBIO
      _RL shg(nchp),z0(nchp),icethk(nchp)
./pkg/fizhi/fizhi_turb.F 195 TURBIO
      integer water(nchp)
./pkg/fizhi/fizhi_turb.F 248 TURBIO
      _RL qliqmsc(nchp,nlay),fccmsc(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 253 TURBIO
      _RL qdiaglsm(nchp,ndlsm)
./pkg/fizhi/fizhi_turb.F 376 TURBIO
      call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 378 TURBIO
      call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 383 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 387 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 391 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 395 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 399 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 403 TURBIO
      call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 404 TURBIO
      call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 405 TURBIO
      call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 406 TURBIO
      call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 407 TURBIO
      call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 411 TURBIO
      call CHPPRM(nymd,nhms,nchp,nchplnd,chlt,ityp,alai,
./pkg/fizhi/fizhi_turb.F 482 TURBIO
       call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm)
./pkg/fizhi/fizhi_turb.F 492 TURBIO
       call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 493 TURBIO
       call STRIP2TILE(vz,igrd,v,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 494 TURBIO
       call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 495 TURBIO
       call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 496 TURBIO
       call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 497 TURBIO
       call STRIP2TILE(plz,igrd,p,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 498 TURBIO
       call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn)
./pkg/fizhi/fizhi_turb.F 499 TURBIO
       call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 500 TURBIO
       call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn)
./pkg/fizhi/fizhi_turb.F 506 TURBIO
       call STRIPIT  (z0,stz0,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 507 TURBIO
       call STRIPIT  (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 508 TURBIO
       call STRIPIT  (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 509 TURBIO
       call STRIPIT  (tke,qq,nchptot,nchp,istrip,nlay-1,nn)
./pkg/fizhi/fizhi_turb.F 510 TURBIO
       call STRIPIT  (ctmt,ctsave,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 511 TURBIO
       call STRIPIT  (xxmt,xxsave,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 512 TURBIO
       call STRIPIT  (yymt,yysave,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 513 TURBIO
       call STRIPIT  (zetamt,zetasave,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 514 TURBIO
       call STRIPIT  (xlmt,xlsave,nchptot,nchp,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 515 TURBIO
       call STRIPIT  (khmt,khsave,nchptot,nchp,istrip,nlay,nn)
./pkg/fizhi/fizhi_turb.F 516 TURBIO
       call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 518 TURBIO
       call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 519 TURBIO
       call STRIPIT  (chfr,chfrstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 520 TURBIO
       call STRIPIT  (icethk,icest,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 521 TURBIO
       call STRIPIT  (pardiff,pardf,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 522 TURBIO
       call STRIPIT  (pardirct,pardr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 523 TURBIO
       call STRIPIT  (chlt,lats,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 524 TURBIO
       call STRIPIT  (chlon,lons,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 525 TURBIO
       call STRIPIT  (lsprec,rainls,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 526 TURBIO
       call STRIPIT  (cnvprec,raincon,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 527 TURBIO
       call STRIPIT  (snowprec,newsnow,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 528 TURBIO
       call STRIPIT  (netsw,swnet,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 529 TURBIO
       call STRIPIT  (netlw,lwstrip,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 530 TURBIO
       call STRIPIT  (alwcoeff,alwrad,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 531 TURBIO
       call STRIPIT  (blwcoeff,blwrad,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 532 TURBIO
       call STRIPIT  (alai,laistrip,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 533 TURBIO
       call STRIPIT  (agrn,grnstrip,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 534 TURBIO
       call STRIPIT  (z2ch,z2str,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 535 TURBIO
       call STRIPIT  (sqscat,scatstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 536 TURBIO
       call STRIPIT  (rsoil1,rs1str,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 537 TURBIO
       call STRIPIT  (rsoil2,rs2str,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 538 TURBIO
       call STRIPIT  (rdc,rdcstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 539 TURBIO
       call STRIPIT  (u2fac,u2fstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 540 TURBIO
       call STRIPIT  (shg,shgstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 541 TURBIO
       call STRIPIT  (dqsdt,dqsdtstr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 542 TURBIO
       call STRIPIT  ( qice, qicestr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 543 TURBIO
       call STRIPIT  (dqice,dqicestr,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 544 TURBIO
       call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 546 TURBIO
       call STRIPIT  (tground,tc,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 547 TURBIO
       call STRIPIT  (tdeep,td,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 548 TURBIO
       call STRIPIT  (qground,qa,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 549 TURBIO
       call STRIPIT  (swetshal,swet1,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 550 TURBIO
       call STRIPIT  (swetroot,swet2,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 551 TURBIO
       call STRIPIT  (swetdeep,swet3,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 552 TURBIO
       call STRIPIT  (snodep,snowdepth,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 553 TURBIO
       call STRIPIT  (capac,capacity,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 589 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 639 TURBIO
       call DIAG_VEGTILE_FILL (stdiag,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 654 TURBIO
      call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 655 TURBIO
      call PASTIT (ctsave,ctmt,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 656 TURBIO
      call PASTIT (xxsave,xxmt,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 657 TURBIO
      call PASTIT (yysave,yymt,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 658 TURBIO
      call PASTIT (zetasave,zetamt,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 659 TURBIO
      call PASTIT (xlsave,xlmt,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 660 TURBIO
      call PASTIT (khsave,khmt,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 662 TURBIO
      call PASTIT (qliq  ,qliqmsc,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 663 TURBIO
      call PASTIT (turbfcc,fccmsc,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 729 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 736 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 743 TURBIO
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 747 TURBIO
      call DIAG_VEGTILE_FILL (grnstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 751 TURBIO
      call DIAG_VEGTILE_FILL (laistrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 755 TURBIO
      call DIAG_VEGTILE_FILL (pardr,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 759 TURBIO
      call DIAG_VEGTILE_FILL (pardf,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 763 TURBIO
      call DIAG_VEGTILE_FILL (blwrad,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 767 TURBIO
      call DIAG_VEGTILE_FILL (dhsdtc,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 771 TURBIO
      call DIAG_VEGTILE_FILL (dedtc,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 775 TURBIO
      call DIAG_VEGTILE_FILL (dhsdqa,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 779 TURBIO
      call DIAG_VEGTILE_FILL (dedqa,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 783 TURBIO
      call DIAG_VEGTILE_FILL (hlwdwn,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 820 TURBIO
      call DIAG_VEGTILE_FILL (runoff,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 824 TURBIO
      call DIAG_VEGTILE_FILL (fwsoil,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 828 TURBIO
      call DIAG_VEGTILE_FILL (gdrain,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 832 TURBIO
      call DIAG_VEGTILE_FILL (smelt,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 836 TURBIO
      call DIAG_VEGTILE_FILL (eveg,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 840 TURBIO
      call DIAG_VEGTILE_FILL (esno,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 844 TURBIO
      call DIAG_VEGTILE_FILL (esoi,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 848 TURBIO
      call DIAG_VEGTILE_FILL (eint,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 852 TURBIO
      call DIAG_VEGTILE_FILL (evpot,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 856 TURBIO
      call DIAG_VEGTILE_FILL (strdg1,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 860 TURBIO
      call DIAG_VEGTILE_FILL (strdg2,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 864 TURBIO
      call DIAG_VEGTILE_FILL (strdg3,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 868 TURBIO
      call DIAG_VEGTILE_FILL (strdg4,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 872 TURBIO
      call DIAG_VEGTILE_FILL (strdg5,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 876 TURBIO
      call DIAG_VEGTILE_FILL (strdg6,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 880 TURBIO
      call DIAG_VEGTILE_FILL (strdg7,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 884 TURBIO
      call DIAG_VEGTILE_FILL (strdg8,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 890 TURBIO
      call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 891 TURBIO
      call PSTBMPIT(chfrstr,qdiaglsm(1,2),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 892 TURBIO
      call PSTBMPIT(lats,qdiaglsm(1,3),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 893 TURBIO
      call PSTBMPIT(lons,qdiaglsm(1,4),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 895 TURBIO
      call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 896 TURBIO
      call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 897 TURBIO
      call PSTBMPIT(qa,qdiaglsm(1,8),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 898 TURBIO
      call PSTBMPIT(swet1,qdiaglsm(1,9),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 899 TURBIO
      call PSTBMPIT(swet2,qdiaglsm(1,10),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 900 TURBIO
      call PSTBMPIT(swet3,qdiaglsm(1,11),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 901 TURBIO
      call PSTBMPIT(capacity,qdiaglsm(1,12),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 902 TURBIO
      call PSTBMPIT(snowdepth,qdiaglsm(1,13),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 903 TURBIO
      call PSTBMPIT(eturb,qdiaglsm(1,14),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 904 TURBIO
      call PSTBMPIT(hsturb,qdiaglsm(1,15),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 905 TURBIO
      call PSTBMPIT(cd,qdiaglsm(1,16),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 906 TURBIO
      call PSTBMPIT(laistrip,qdiaglsm(1,17),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 907 TURBIO
      call PSTBMPIT(grnstrip,qdiaglsm(1,18),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 908 TURBIO
      call PSTBMPIT(eint,qdiaglsm(1,19),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 909 TURBIO
      call PSTBMPIT(esoi,qdiaglsm(1,20),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 910 TURBIO
      call PSTBMPIT(eveg,qdiaglsm(1,21),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 911 TURBIO
      call PSTBMPIT(esno,qdiaglsm(1,22),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 912 TURBIO
      call PSTBMPIT(strdg1,qdiaglsm(1,23),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 913 TURBIO
      call PSTBMPIT(strdg2,qdiaglsm(1,24),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 914 TURBIO
      call PSTBMPIT(strdg3,qdiaglsm(1,25),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 915 TURBIO
      call PSTBMPIT(strdg4,qdiaglsm(1,26),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 916 TURBIO
      call PSTBMPIT(strdg5,qdiaglsm(1,27),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 917 TURBIO
      call PSTBMPIT(strdg6,qdiaglsm(1,28),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 918 TURBIO
      call PSTBMPIT(strdg7,qdiaglsm(1,29),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 919 TURBIO
      call PSTBMPIT(strdg8,qdiaglsm(1,30),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 920 TURBIO
      call PSTBMPIT(strdg9,qdiaglsm(1,31),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 921 TURBIO
      call PSTBMPIT(smelt,qdiaglsm(1,32),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 922 TURBIO
      call PSTBMPIT(gdrain,qdiaglsm(1,33),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 923 TURBIO
      call PSTBMPIT(runsrf,qdiaglsm(1,34),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 924 TURBIO
      call PSTBMPIT(fwsoil,qdiaglsm(1,35),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 925 TURBIO
      call PSTBMPIT(evpot,qdiaglsm(1,36),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 926 TURBIO
      call PSTBMPIT(stt2m,qdiaglsm(1,37),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 927 TURBIO
      call PSTBMPIT(stq2m,qdiaglsm(1,38),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 930 TURBIO
      call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 931 TURBIO
      call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 932 TURBIO
      call PASTIT (qa,qground,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 933 TURBIO
      call PASTIT (swet1,swetshal,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 934 TURBIO
      call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 935 TURBIO
      call PASTIT (swet3,swetdeep,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 936 TURBIO
      call PASTIT (capacity,capac,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 937 TURBIO
      call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 971 TURBIO
      call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 976 TURBIO
      call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 978 TURBIO
      call STRIP2TILE(vz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 983 TURBIO
      call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 985 TURBIO
      call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 991 TURBIO
      call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_turb.F 993 TURBIO
      call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall,
./pkg/fizhi/fizhi_turb.F 999 TURBIO
      call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_utils.F 655 GRD2MSC
      integer im,jm,mxchps,nchp
./pkg/fizhi/fizhi_utils.F 680 MSC2GRD
      integer im,jm,mxchps,nchp
./pkg/fizhi/fizhi_utils.F 711 CHPPRM
      subroutine CHPPRM(nymd,nhms,mxchps,nchp,chlt,ityp,alai,
./pkg/fizhi/fizhi_utils.F 716 CHPPRM
       integer nymd,nhms,nchp,mxchps,ityp(mxchps)
./pkg/fizhi/fizhi_utils.F 868 CHPPRM
      do i=1,nchp
./pkg/fizhi/fizhi_wrapper.F 263 FIZHI_WRAPPER
     .  nchp,nchptot,nchpland,
./pkg/fizhi/update_earth_exports.F 1003 GETEMISS
      call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj),
./pkg/fizhi/update_earth_exports.F 1014 GETEMISS
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp,
./pkg/fizhi/update_earth_exports.F 1026 EMISSIVITY
      subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis)
./pkg/fizhi/update_earth_exports.F 1028 EMISSIVITY
      integer nchp,numpts
./pkg/fizhi/update_earth_exports.F 1029 EMISSIVITY
      integer   ityp(nchp)
./pkg/fizhi/update_earth_exports.F 102 UPDATE_EARTH_EXPORTS
        call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp,
./pkg/fizhi/update_earth_exports.F 1030 EMISSIVITY
      _RL snowdepth(nchp)
./pkg/fizhi/update_earth_exports.F 1031 EMISSIVITY
      _RL fraci(nchp)
./pkg/fizhi/update_earth_exports.F 1032 EMISSIVITY
      _RL newemis(nchp,10)
./pkg/fizhi/update_earth_exports.F 113 UPDATE_EARTH_EXPORTS
        call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj))
./pkg/fizhi/update_earth_exports.F 114 UPDATE_EARTH_EXPORTS
        call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 132 UPDATE_EARTH_EXPORTS
     &                    nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2)
./pkg/fizhi/update_earth_exports.F 37 UPDATE_EARTH_EXPORTS
      _RL ficetile(nchp)
./pkg/fizhi/update_earth_exports.F 40 UPDATE_EARTH_EXPORTS
      _RL tmpchp(nchp)
./pkg/fizhi/update_earth_exports.F 813 GETALB
     &        nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt,
./pkg/fizhi/update_earth_exports.F 854 GETALB
      integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj
./pkg/fizhi/update_earth_exports.F 856 GETALB
      _RL snodep(nchp,nSx,nSy),chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 857 GETALB
      integer igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 858 GETALB
      _RL alai(nchp,nSx,nSy),agrn(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 872 GETALB
      _RL AVISDR(nchp),ANIRDR(nchp),AVISDF(nchp)
./pkg/fizhi/update_earth_exports.F 873 GETALB
      _RL ANIRDF(nchp)
./pkg/fizhi/update_earth_exports.F 874 GETALB
      _RL zenith(nchp)
./pkg/fizhi/update_earth_exports.F 890 GETALB
      call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland)
./pkg/fizhi/update_earth_exports.F 89 UPDATE_EARTH_EXPORTS
     &       nchp,nSx,nSy,bi,bj,alai,agrn )
./pkg/fizhi/update_earth_exports.F 904 GETALB
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 917 GETALB
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 929 GETALB
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 941 GETALB
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 952 GETEMISS
      subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 983 GETEMISS
      integer im,jm,nchp,nchptot,nSx,nSy,bi,bj
./pkg/fizhi/update_earth_exports.F 985 GETEMISS
      _RL chfr(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 986 GETEMISS
      integer igrd(nchp,nSx,nSy), ityp(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 987 GETEMISS
      _RL snowdep(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 988 GETEMISS
      _RL fraci(nchp)
./pkg/fizhi/update_earth_exports.F 991 GETEMISS
      _RL emisstile(nchp,10)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 84 FIZHI_INIT_FIXED
     .         nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats,
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 57 FIZHI_INIT_VEG
      integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 60 FIZHI_INIT_VEG
      integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 63 FIZHI_INIT_VEG
      _RL chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 7 FIZHI_INIT_VEG
     . maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,igrd,
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 43 FIZHI_INIT_VEGSURFTILES
       do n = 1,nchp
./verification/fizhi-gridalt-hs/code/do_fizhi.F 35 DO_FIZHI
      integer Nrphin,Nsxin,Nsyin,bi,bj,nchp
./verification/fizhi-gridalt-hs/code/do_fizhi.F 45 DO_FIZHI
      _RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 46 DO_FIZHI
      _RL yymt(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 47 DO_FIZHI
      _RL zetamt(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 48 DO_FIZHI
      _RL xlmt(nchp,Nrphin,Nsxin,Nsyin),khmt(nchp,Nrphin,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 49 DO_FIZHI
      _RL tke(nchp,Nrphin,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 58 DO_FIZHI
      _RL chfr(nchp,Nsxin,Nsyin),alai(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 59 DO_FIZHI
      _RL agrn(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 60 DO_FIZHI
      integer ityp(nchp,Nsxin,Nsyin),igrd(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 61 DO_FIZHI
      _RL chlat(nchp,Nsxin,Nsyin),chlon(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 62 DO_FIZHI
      _RL tcanopy(nchp,Nsxin,Nsyin),tdeep(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 63 DO_FIZHI
      _RL ecanopy(nchp,Nsxin,Nsyin),swetshal(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 64 DO_FIZHI
      _RL swetroot(nchp,Nsxin,Nsyin),swetdeep(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 65 DO_FIZHI
      _RL snodep(nchp,Nsxin,Nsyin),capac(nchp,Nsxin,Nsyin)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 6 DO_FIZHI
     . nchp,nchptot,nchpland,
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 78 FIZHI_INIT_FIXED
     .         nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats,
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 209 FIZHI_INIT_VARS
         do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 216 FIZHI_INIT_VARS
         do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 231 FIZHI_INIT_VARS
        do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 57 FIZHI_INIT_VEG
      integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 60 FIZHI_INIT_VEG
      integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 63 FIZHI_INIT_VEG
      _RL chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 7 FIZHI_INIT_VEG
     . maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,igrd,