Symbol Description Uses
tke 29



File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 246 DO_FIZHI
     . xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 49 DO_FIZHI
      _RL tke(nchp,Nrphin,Nsxin,Nsyin)
./pkg/fizhi/do_fizhi.F 8 DO_FIZHI
     . ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
./pkg/fizhi/fizhi_coms.h 11 NO PROCEDURE
     .   ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke
./pkg/fizhi/fizhi_coms.h 20 NO PROCEDURE
      _RL tke(nchp,Nrphys,Nsx,Nsy)
./pkg/fizhi/fizhi_driver.F 11 FIZHI_DRIVER
     . ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
./pkg/fizhi/fizhi_driver.F 202 FIZHI_DRIVER
     .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
./pkg/fizhi/fizhi_driver.F 71 FIZHI_DRIVER
      _RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm)
./pkg/fizhi/fizhi_init_vars.F 236 FIZHI_INIT_VARS
          tke(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_readwrite_vegtiles.F 187 FIZHI_WRITE_VEGTILES
         r8seg(n) = tke(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 348 FIZHI_READ_VEGTILES
        CALL MNC_CW_RL_R(prec,bnam,0,0,'tke', tke, myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 449 FIZHI_READ_VEGTILES
         tke(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 85 FIZHI_WRITE_VEGTILES
        CALL MNC_CW_RL_W(prec,bnam,0,0,'tke', tke, myThid)
./pkg/fizhi/fizhi_turb.F 113 TURBIO
      _RL xlmt(nchp,nlay),khmt(nchp,nlay),tke(nchp,nlay)
./pkg/fizhi/fizhi_turb.F 1251 TURBIO
      call MSC2GRD(igrd,chfr,  tke(1,L),nchp,nchptot,fracland,
./pkg/fizhi/fizhi_turb.F 328 TURBIO
      sum0 = sum0 + tke(n,L)
./pkg/fizhi/fizhi_turb.F 509 TURBIO
       call STRIPIT  (tke,qq,nchptot,nchp,istrip,nlay-1,nn)
./pkg/fizhi/fizhi_turb.F 654 TURBIO
      call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn)
./pkg/fizhi/fizhi_turb.F 7 TURBIO
     2 ,plz,plze,dpres,pkht,pkz,ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke
./pkg/fizhi/fizhi_wrapper.F 265 FIZHI_WRAPPER
     .  ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
./pkg/my82/my82_calc.F 112 MY82_CALC
         tke(I,J,K) = sqrt(tkesquare)
./pkg/my82/my82_calc.F 137 MY82_CALC
         GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K)
./pkg/my82/my82_calc.F 138 MY82_CALC
         GH(I,J) = GH(I,J) + tke(I,J,K)
./pkg/my82/my82_calc.F 158 MY82_CALC
         tkel = MYhbl(I,J,bi,bj)*tke(I,J,K)
./pkg/my82/my82_calc.F 67 MY82_CALC
      _RL     tke(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/my82/my82_calc.F 86 MY82_CALC
         tke(I,J,K) = 0. _d 0
./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 8 DO_FIZHI
     . ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke,
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 217 FIZHI_INIT_VARS
          tke(i,L,bi,bj) = 0.