Symbol Description Uses
diffKrNrT vertical profile of Laplacian diffusion coeff. 28



File Line number Procedure Code
./pkg/my82/my82_calc_diff.F 58 MY82_CALC_DIFF
     &                     - diffKrNrT(k) )
./pkg/my82/my82_calc_diff.F 73 MY82_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/my82/my82_init.F 55 MY82_INIT
           MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./pkg/my82/my82_calc.F 171 MY82_CALC
     &                               diffKrNrT(k) )
./model/src/config_summary.F 148 CONFIG_SUMMARY
      CALL WRITE_1D_R8( diffKrNrT, Nr, INDEX_K,'diffKrNrT =',
./model/src/ini_parms.F 166 INI_PARMS
     & viscAr, diffKrT, diffKrS, diffKrNrT, diffKrNrS, hFacMinDr,
./model/src/ini_parms.F 336 INI_PARMS
       diffKrNrT(k) = UNSET_RL
./model/src/ini_parms.F 510 INI_PARMS
        IF ( diffKrNrT(k).EQ. UNSET_RL ) diffKrSet = .FALSE.
./model/src/ini_parms.F 514 INI_PARMS
         diffKrNrT(k) = diffKrT
./model/src/calc_3d_diffusivity.F 82 CALC_3D_DIFFUSIVITY
     &       + diffKrNrT(k)
./model/inc/PARAMS.h 585 NO PROCEDURE
     & diffKhT, diffK4T, diffKrNrT,
./model/inc/PARAMS.h 662 NO PROCEDURE
      _RL diffKrNrT(Nr)
./pkg/kpp/kpp_calc.F 778 KPP_CALC_DUMMY
               KPPdiffKzT(i,j,k,bi,bj) = diffKrNrT(k)
./pkg/kpp/kpp_routines.F 214 KPPMIX
               diffus(i,k,3) = max ( blmc(i,k,3), diffKrNrT(k) )
./pkg/kpp/kpp_routines.F 790 RI_IWMIX
               diffus(i,ki,3) = diffKrNrT(ki)+ fcon*difscon + fRi*difs0
./pkg/kpp/kpp_routines.F 794 RI_IWMIX
               diffus(i,ki,3) = diffKrNrT(ki)
./pkg/kpp/kpp_routines.F 799 RI_IWMIX
            diffus(i,ki,3) = diffKrNrT(ki)
./pkg/kpp/kpp_init.F 141 KPP_INIT
                     KPPdiffKzT (i,j,k,bi,bj) = diffKrNrT(k)
./pkg/kpp/kpp_calc_diff_t.F 58 KPP_CALC_DIFF_T
     &                     - diffKrNrT(k) )
./pkg/kpp/kpp_calc_diff_t.F 73 KPP_CALC_DIFF_T
     &                     - diffKrNrT(kArg) )
./pkg/ggl90/ggl90_calc_diff.F 58 GGL90_CALC_DIFF
     &                     - diffKrNrT(k) )
./pkg/ggl90/ggl90_calc_diff.F 73 GGL90_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/ggl90/ggl90_calc.F 368 GGL90_CALC
         KappaH = MAX(KappaH,diffKrNrT(k))
./model/src/calc_diffusivity.F 69 CALC_DIFFUSIVITY
     &       + diffKrNrT(k)
./pkg/pp81/pp81_calc_diff.F 58 PP81_CALC_DIFF
     &                     - diffKrNrT(k) )
./pkg/pp81/pp81_calc_diff.F 73 PP81_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/pp81/pp81_calc.F 87 PP81_CALC
     &        diffKrNrT(k))
./pkg/pp81/pp81_init.F 43 PP81_INIT
           PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k)