Symbol Description Uses
swetroot 22



File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 11 DO_FIZHI
     & tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
./pkg/fizhi/do_fizhi.F 245 DO_FIZHI
     & ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj),
./pkg/fizhi/do_fizhi.F 65 DO_FIZHI
      _RL swetroot(nchp,nSxIn,nSyIn),swetdeep(nchp,nSxIn,nSyIn)
./pkg/fizhi/fizhi_driver.F 10 FIZHI_DRIVER
     & tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,capac,snodep,
./pkg/fizhi/fizhi_driver.F 207 FIZHI_DRIVER
     &  tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac,
./pkg/fizhi/fizhi_driver.F 71 FIZHI_DRIVER
      _RL swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp)
./pkg/fizhi/fizhi_init_vegsurftiles.F 157 FIZHI_INIT_VEGSURFTILES
        swetroot(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_land_coms.h 12 NO PROCEDURE
      _RL swetroot(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 7 NO PROCEDURE
     . swetshal, swetroot, swetdeep, snodep, capac
./pkg/fizhi/fizhi_readwrite_vegtiles.F 234 FIZHI_WRITE_VEGTILES
        r8seg(n) = swetroot(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 355 FIZHI_READ_VEGTILES
        CALL MNC_CW_RL_R(prec,bnam,0,0,'swetroot', swetroot, myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 496 FIZHI_READ_VEGTILES
        swetroot(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 92 FIZHI_WRITE_VEGTILES
        CALL MNC_CW_RL_W(prec,bnam,0,0,'swetroot', swetroot, myThid)
./pkg/fizhi/fizhi_turb.F 129 TURBIO
      _RL swetroot(nchp),swetdeep(nchp),snodep(nchp),capac(nchp)
./pkg/fizhi/fizhi_turb.F 30 TURBIO
     4 ,tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac
./pkg/fizhi/fizhi_turb.F 499 TURBIO
       call STRIPIT  (swetroot,swet2,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 842 TURBIO
      call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn)
./pkg/fizhi/fizhi_wrapper.F 269 FIZHI_WRAPPER
     &  tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 48 FIZHI_INIT_VEGSURFTILES
        swetroot(n,bi,bj) = 0.1
./verification/fizhi-gridalt-hs/code/do_fizhi.F 11 DO_FIZHI
     & tcanopy,tdeep,ecanopy,swetshal,swetroot,swetdeep,snodep,capac,
./verification/fizhi-gridalt-hs/code/do_fizhi.F 65 DO_FIZHI
      _RL swetroot(nchp,nSxin,nSyin),swetdeep(nchp,nSxin,nSyin)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 237 FIZHI_INIT_VARS
        swetroot(i,bi,bj) = 0.5