Symbol Description Uses
diffKr 20


File Line number Procedure Code
./model/src/ini_mixing.F 45 INI_MIXING 
            diffKr(i,j,k,bi,bj) = diffKrNrS(k)
./model/src/ini_mixing.F 57 INI_MIXING 
      _EXCH_XYZ_R8(diffKr , myThid )
./model/src/calc_diffusivity.F 67 CALC_DIFFUSIVITY 
     &       + diffKr(i,j,k,bi,bj)
./model/src/calc_diffusivity.F 80 CALC_DIFFUSIVITY 
     &       + diffKr(i,j,k,bi,bj)
./pkg/pp81/pp81_calc_diff.F 56 PP81_CALC_DIFF 
     &                     - diffKr(i,j,k,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 71 PP81_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )