Symbol Description Uses
KTemp 6


File Line number Procedure Code
./pkg/kl10/kl10_calc.F 157 KL10_CALC 
                  KTemp = 0.5*(KLviscTmp+KLviscold)
./pkg/kl10/kl10_calc.F 160 KL10_CALC 
                  KTemp = MIN(KLviscMax,KTemp)
./pkg/kl10/kl10_calc.F 161 KL10_CALC 
                  KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K))
./pkg/kl10/kl10_calc.F 162 KL10_CALC 
                  KLdiffKr(I,J,K,bi,bj) = MAX(KTemp,diffKrNrT(K))
./pkg/kl10/kl10_calc.F 66 KL10_CALC 
      _RL     dzp,ec,ep,es,epss(-1:0),epsw(-1:0),dz,KTemp