Symbol Description Uses
nchp 858


File Line number Procedure Code
./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_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_init_vars.F 209 FIZHI_INIT_VARS 
         do i = 1,nchp
./pkg/fizhi/fizhi_init_vars.F 216 FIZHI_INIT_VARS 
         do i = 1,nchp
./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 704 CHPPRM 
      subroutine CHPPRM(nymd,nhms,mxchps,nchp,chlt,ityp,alai,
./pkg/fizhi/fizhi_utils.F 709 CHPPRM 
       integer nymd,nhms,nchp,mxchps,ityp(mxchps)
./pkg/fizhi/fizhi_utils.F 861 CHPPRM 
      do i=1,nchp
./pkg/fizhi/update_earth_exports.F 1010 GETEMISS 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp,
./pkg/fizhi/update_earth_exports.F 1022 EMISSIVITY 
      subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis)
./pkg/fizhi/update_earth_exports.F 1024 EMISSIVITY 
      integer nchp,numpts
./pkg/fizhi/update_earth_exports.F 1025 EMISSIVITY 
      integer   ityp(nchp)
./pkg/fizhi/update_earth_exports.F 1026 EMISSIVITY 
      _RL snowdepth(nchp)
./pkg/fizhi/update_earth_exports.F 1027 EMISSIVITY 
      _RL fraci(nchp)
./pkg/fizhi/update_earth_exports.F 1028 EMISSIVITY 
      _RL newemis(nchp,10)
./pkg/fizhi/update_earth_exports.F 109 UPDATE_EARTH_EXPORTS 
        call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj))
./pkg/fizhi/update_earth_exports.F 110 UPDATE_EARTH_EXPORTS 
        call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 128 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 809 GETALB 
     .        nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt,
./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 852 GETALB 
      _RL snodep(nchp,nSx,nSy),chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 853 GETALB 
      integer igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 854 GETALB 
      _RL alai(nchp,nSx,nSy),agrn(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 868 GETALB 
      _RL AVISDR(nchp),ANIRDR(nchp),AVISDF(nchp)
./pkg/fizhi/update_earth_exports.F 869 GETALB 
      _RL ANIRDF(nchp)
./pkg/fizhi/update_earth_exports.F 870 GETALB 
      _RL zenith(nchp)
./pkg/fizhi/update_earth_exports.F 886 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 900 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 913 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 925 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 937 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland,
./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 981 GETEMISS 
      _RL chfr(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 982 GETEMISS 
      integer igrd(nchp,nSx,nSy), ityp(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 983 GETEMISS 
      _RL snowdep(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 984 GETEMISS 
      _RL fraci(nchp)
./pkg/fizhi/update_earth_exports.F 987 GETEMISS 
      _RL emisstile(nchp,10)
./pkg/fizhi/update_earth_exports.F 98 UPDATE_EARTH_EXPORTS 
        call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp,
./pkg/fizhi/update_earth_exports.F 999 GETEMISS 
      call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj),
./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_wrapper.F 265 FIZHI_WRAPPER 
     .  nchp,nchptot,nchpland,
./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/do_fizhi.F 236 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_init_vegsurftiles.F 100 FIZHI_INIT_VEGSURFTILES 
     .                 temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 101 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 113 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 114 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 126 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 127 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 139 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 140 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 152 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 153 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 165 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 166 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 178 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 179 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 191 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 192 FIZHI_INIT_VEGSURFTILES 
       do n = 1,nchp
./pkg/fizhi/fizhi_init_vegsurftiles.F 57 FIZHI_INIT_VEGSURFTILES 
      _RL temptile(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_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 85 FIZHI_INIT_FIXED 
     .         nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats,
./pkg/fizhi/fizhi_driver.F 204 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_turb.F 1004 TURBIO 
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1011 TURBIO 
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1015 TURBIO 
      call DIAG_VEGTILE_FILL (stuflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1019 TURBIO 
      call DIAG_VEGTILE_FILL (stvflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1028 TURBIO 
      call DIAG_VEGTILE_FILL (sttflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 102 TURBIO 
      integer nchp,nchptot,nchplnd
./pkg/fizhi/fizhi_turb.F 1037 TURBIO 
      call DIAG_VEGTILE_FILL (stqflux,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1041 TURBIO 
      call DIAG_VEGTILE_FILL (sri,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1045 TURBIO 
      call DIAG_VEGTILE_FILL (skh,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1049 TURBIO 
      call DIAG_VEGTILE_FILL (skm,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1053 TURBIO 
      call DIAG_VEGTILE_FILL (sct,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1057 TURBIO 
      call DIAG_VEGTILE_FILL (scu,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1061 TURBIO 
      call DIAG_VEGTILE_FILL (swinds,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1065 TURBIO 
      call DIAG_VEGTILE_FILL (stuflux(1,nlay),igrd,chfrstr,istrip,nchp,
./pkg/fizhi/fizhi_turb.F 1069 TURBIO 
      call DIAG_VEGTILE_FILL (stvflux(1,nlay),igrd,chfrstr,istrip,nchp,
./pkg/fizhi/fizhi_turb.F 1073 TURBIO 
      call DIAG_VEGTILE_FILL (sustar,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1077 TURBIO 
      call DIAG_VEGTILE_FILL (sz0,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1081 TURBIO 
      call DIAG_VEGTILE_FILL (frqtrb,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1085 TURBIO 
      call DIAG_VEGTILE_FILL (pbldpth,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1089 TURBIO 
      call DIAG_VEGTILE_FILL (stu2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 108 TURBIO 
      _RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp)
./pkg/fizhi/fizhi_turb.F 1093 TURBIO 
      call DIAG_VEGTILE_FILL (stv2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1097 TURBIO 
      call DIAG_VEGTILE_FILL (stt2m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 109 TURBIO 
      _RL xlmt(nchp,nlay),khmt(nchp,nlay),tke(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 10 TURBIO 
     5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz
./pkg/fizhi/fizhi_turb.F 1108 TURBIO 
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1112 TURBIO 
      call DIAG_VEGTILE_FILL (stu10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1116 TURBIO 
      call DIAG_VEGTILE_FILL (stv10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1120 TURBIO 
      call DIAG_VEGTILE_FILL (stt10m,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 112 TURBIO 
      _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
./pkg/fizhi/fizhi_turb.F 1131 TURBIO 
      call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 113 TURBIO 
      _RL swetroot(nchp),swetdeep(nchp),snodep(nchp),capac(nchp)
./pkg/fizhi/fizhi_turb.F 1140 TURBIO 
      call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1144 TURBIO 
      call DIAG_VEGTILE_FILL (qa,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1148 TURBIO 
      call DIAG_VEGTILE_FILL (swet1,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 114 TURBIO 
      _RL chfr(nchp),chlt(nchp),chlon(nchp)
./pkg/fizhi/fizhi_turb.F 1152 TURBIO 
      call DIAG_VEGTILE_FILL (swet2,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1156 TURBIO 
      call DIAG_VEGTILE_FILL (swet3,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 115 TURBIO 
      integer igrd(nchp),ityp(nchp)
./pkg/fizhi/fizhi_turb.F 1160 TURBIO 
      call DIAG_VEGTILE_FILL (capacity,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 1164 TURBIO 
      call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn,
./pkg/fizhi/fizhi_turb.F 116 TURBIO 
      _RL alai(nchp),agrn(nchp),thkz(im,jm)
./pkg/fizhi/fizhi_turb.F 1214 TURBIO 
      call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1216 TURBIO 
      call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1218 TURBIO 
      call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1221 TURBIO 
      call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1224 TURBIO 
      call MSC2GRD(igrd,chfr,  tke(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1227 TURBIO 
      call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1229 TURBIO 
      call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 1269 TURBIO 
      call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm)
./pkg/fizhi/fizhi_turb.F 152 TURBIO 
      _RL alwcoeff(nchp),blwcoeff(nchp)
./pkg/fizhi/fizhi_turb.F 153 TURBIO 
      _RL netsw(nchp)
./pkg/fizhi/fizhi_turb.F 154 TURBIO 
      _RL cnvprec(nchp),lsprec(nchp)
./pkg/fizhi/fizhi_turb.F 155 TURBIO 
      _RL snowprec(nchp)
./pkg/fizhi/fizhi_turb.F 156 TURBIO 
      _RL pardiff(nchp),pardirct(nchp)
./pkg/fizhi/fizhi_turb.F 157 TURBIO 
      _RL pmsc(nchp)
./pkg/fizhi/fizhi_turb.F 158 TURBIO 
      _RL netlw(nchp)
./pkg/fizhi/fizhi_turb.F 159 TURBIO 
      _RL sqscat(nchp), rsoil1(nchp)
./pkg/fizhi/fizhi_turb.F 160 TURBIO 
      _RL rsoil2(nchp)
./pkg/fizhi/fizhi_turb.F 161 TURBIO 
      _RL rdc(nchp),u2fac(nchp)
./pkg/fizhi/fizhi_turb.F 162 TURBIO 
      _RL z2ch(nchp)
./pkg/fizhi/fizhi_turb.F 163 TURBIO 
      _RL zoch(nchp),cdrc(nchp)
./pkg/fizhi/fizhi_turb.F 164 TURBIO 
      _RL cdsc(nchp)
./pkg/fizhi/fizhi_turb.F 165 TURBIO 
      _RL dqsdt(nchp)
./pkg/fizhi/fizhi_turb.F 166 TURBIO 
      _RL tground(nchp),qground(nchp)
./pkg/fizhi/fizhi_turb.F 167 TURBIO 
      _RL utility(nchp)
./pkg/fizhi/fizhi_turb.F 168 TURBIO 
      _RL    qice(nchp)
./pkg/fizhi/fizhi_turb.F 169 TURBIO 
      _RL   dqice(nchp)
./pkg/fizhi/fizhi_turb.F 171 TURBIO 
      _RL dumsc(nchp,nlay),dvmsc(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 172 TURBIO 
      _RL dtmsc(nchp,nlay),dqmsc(nchp,nlay,ntracers)
./pkg/fizhi/fizhi_turb.F 174 TURBIO 
      _RL shg(nchp),z0(nchp),icethk(nchp)
./pkg/fizhi/fizhi_turb.F 175 TURBIO 
      integer water(nchp)
./pkg/fizhi/fizhi_turb.F 228 TURBIO 
      _RL qliqmsc(nchp,nlay),fccmsc(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 232 TURBIO 
      _RL qdiaglsm(nchp,ndlsm)
./pkg/fizhi/fizhi_turb.F 352 TURBIO 
      call GRD2MSC(pz(1,1),im,jm,