Symbol Description Uses
swetdeep 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 246 DO_FIZHI
     & swetdeep(1,bi,bj),capac(1,bi,bj),snodep(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 170 FIZHI_INIT_VEGSURFTILES
        swetdeep(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_land_coms.h 13 NO PROCEDURE
      _RL swetdeep(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 7 NO PROCEDURE
     . swetshal, swetroot, swetdeep, snodep, capac
./pkg/fizhi/fizhi_readwrite_vegtiles.F 243 FIZHI_WRITE_VEGTILES
        r8seg(n) = swetdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 356 FIZHI_READ_VEGTILES
        CALL MNC_CW_RL_R(prec,bnam,0,0,'swetdeep', swetdeep, myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 505 FIZHI_READ_VEGTILES
        swetdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 93 FIZHI_WRITE_VEGTILES
        CALL MNC_CW_RL_W(prec,bnam,0,0,'swetdeep', swetdeep, 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 500 TURBIO
       call STRIPIT  (swetdeep,swet3,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 843 TURBIO
      call PASTIT (swet3,swetdeep,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 49 FIZHI_INIT_VEGSURFTILES
        swetdeep(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 238 FIZHI_INIT_VARS
        swetdeep(i,bi,bj) = 0.5