Symbol Description Uses
swetshal 23



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 64 DO_FIZHI
      _RL ecanopy(nchp,nSxIn,nSyIn),swetshal(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 70 FIZHI_DRIVER
      _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
./pkg/fizhi/fizhi_init_vegsurftiles.F 144 FIZHI_INIT_VEGSURFTILES
        swetshal(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_land_coms.h 11 NO PROCEDURE
      _RL swetshal(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_land_coms.h 7 NO PROCEDURE
     . swetshal, swetroot, swetdeep, snodep, capac
./pkg/fizhi/fizhi_readwrite_vegtiles.F 225 FIZHI_WRITE_VEGTILES
        r8seg(n) = swetshal(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 354 FIZHI_READ_VEGTILES
        CALL MNC_CW_RL_R(prec,bnam,0,0,'swetshal', swetshal, myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 487 FIZHI_READ_VEGTILES
        swetshal(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 91 FIZHI_WRITE_VEGTILES
        CALL MNC_CW_RL_W(prec,bnam,0,0,'swetshal', swetshal, myThid)
./pkg/fizhi/fizhi_turb.F 128 TURBIO
      _RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp)
./pkg/fizhi/fizhi_turb.F 30 TURBIO
     4 ,tcanopy,ecanopy,tdeep,swetshal,swetroot,swetdeep,snodep,capac
./pkg/fizhi/fizhi_turb.F 412 TURBIO
       swetshal(i) = 1.
./pkg/fizhi/fizhi_turb.F 498 TURBIO
       call STRIPIT  (swetshal,swet1,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_turb.F 841 TURBIO
      call PASTIT (swet1,swetshal,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 47 FIZHI_INIT_VEGSURFTILES
        swetshal(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 64 DO_FIZHI
      _RL ecanopy(nchp,nSxin,nSyin),swetshal(nchp,nSxin,nSyin)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 236 FIZHI_INIT_VARS
        swetshal(i,bi,bj) = 0.6