Symbol Description Uses
diffus 59


File Line number Procedure Code
./pkg/kpp/kpp_routines.F 1066 BLMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 1096 BLMIX 
      _KPP_RL diffus(imt,0:Nrp1,mdiff)
./pkg/kpp/kpp_routines.F 1162 BLMIX 
         dvdzup = (diffus(i,kn-1,1) - diffus(i,kn  ,1)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1163 BLMIX 
         dvdzdn = (diffus(i,kn  ,1) - diffus(i,kn+1,1)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1167 BLMIX 
         dvdzup = (diffus(i,kn-1,2) - diffus(i,kn  ,2)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1168 BLMIX 
         dvdzdn = (diffus(i,kn  ,2) - diffus(i,kn+1,2)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1172 BLMIX 
         dvdzup = (diffus(i,kn-1,3) - diffus(i,kn  ,3)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1173 BLMIX 
         dvdzdn = (diffus(i,kn  ,3) - diffus(i,kn+1,3)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1177 BLMIX 
         visch  = diffus(i,kn,1) + viscp * delhat
./pkg/kpp/kpp_routines.F 1178 BLMIX 
         difsh  = diffus(i,kn,2) + difsp * delhat
./pkg/kpp/kpp_routines.F 1179 BLMIX 
         difth  = diffus(i,kn,3) + diftp * delhat
./pkg/kpp/kpp_routines.F 1311 ENHANCE 
     I       dkm1, hbl, kbl, diffus, casea
./pkg/kpp/kpp_routines.F 1332 ENHANCE 
      _KPP_RL diffus(imt,0:Nrp1,mdiff)
./pkg/kpp/kpp_routines.F 1356 ENHANCE 
               dkmp5         =      casea(i)  * diffus(i,ki,md) +
./pkg/kpp/kpp_routines.F 1360 ENHANCE 
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 136 KPPMIX 
     O     , diffus )
./pkg/kpp/kpp_routines.F 155 KPPMIX 
               diffus(i,k,md) = 0.0
./pkg/kpp/kpp_routines.F 181 KPPMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 194 KPPMIX 
     I       dkm1, hbl, kbl, diffus, casea
./pkg/kpp/kpp_routines.F 212 KPPMIX 
               diffus(i,k,1) = max ( blmc(i,k,1), viscAr  )
./pkg/kpp/kpp_routines.F 213 KPPMIX 
               diffus(i,k,2) = max ( blmc(i,k,2), diffKrNrS(k) )
./pkg/kpp/kpp_routines.F 214 KPPMIX 
               diffus(i,k,3) = max ( blmc(i,k,3), diffKrNrT(k) )
./pkg/kpp/kpp_routines.F 27 KPPMIX 
     O     , diffus
./pkg/kpp/kpp_routines.F 662 RI_IWMIX 
     O     , diffus )
./pkg/kpp/kpp_routines.F 691 RI_IWMIX 
      _KPP_RL diffus(imt,0:Nrp1,3)
./pkg/kpp/kpp_routines.F 720 RI_IWMIX 
      diffus(1,1,1) = 0.0
./pkg/kpp/kpp_routines.F 724 RI_IWMIX 
            diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 725 RI_IWMIX 
            diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 726 RI_IWMIX 
            diffus(i,ki,3) = 0.
./pkg/kpp/kpp_routines.F 735 RI_IWMIX 
               diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 736 RI_IWMIX 
               diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 738 RI_IWMIX 
               diffus(i,ki,1) = diffus(i,ki-1,1)
./pkg/kpp/kpp_routines.F 739 RI_IWMIX 
               diffus(i,ki,2) = diffus(i,ki-1,2)
./pkg/kpp/kpp_routines.F 741 RI_IWMIX 
               diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 743 RI_IWMIX 
               diffus(i,ki,2) = dbloc(i,ki)   / (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 758 RI_IWMIX 
     U     diffus(1,0,1))
./pkg/kpp/kpp_routines.F 770 RI_IWMIX 
            Rig   = max ( diffus(i,ki,2) , BVSQcon )
./pkg/kpp/kpp_routines.F 777 RI_IWMIX 
            Rig  = max ( diffus(i,ki,1), c0 )
./pkg/kpp/kpp_routines.F 788 RI_IWMIX 
               diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0
./pkg/kpp/kpp_routines.F 789 RI_IWMIX 
               diffus(i,ki,2) = diffKrNrS(ki)+ fcon*difscon + fRi*difs0
./pkg/kpp/kpp_routines.F 790 RI_IWMIX 
               diffus(i,ki,3) = diffKrNrT(ki)+ fcon*difscon + fRi*difs0
./pkg/kpp/kpp_routines.F 792 RI_IWMIX 
               diffus(i,ki,1) = viscAr
./pkg/kpp/kpp_routines.F 793 RI_IWMIX 
               diffus(i,ki,2) = diffKrNrS(ki)
./pkg/kpp/kpp_routines.F 794 RI_IWMIX 
               diffus(i,ki,3) = diffKrNrT(ki)
./pkg/kpp/kpp_routines.F 797 RI_IWMIX 
            diffus(i,ki,1) = viscAr
./pkg/kpp/kpp_routines.F 798 RI_IWMIX 
            diffus(i,ki,2) = diffKrNrS(ki)
./pkg/kpp/kpp_routines.F 799 RI_IWMIX 
            diffus(i,ki,3) = diffKrNrT(ki)
./pkg/kpp/kpp_routines.F 809 RI_IWMIX 
         diffus(i,0,1) = c0
./pkg/kpp/kpp_routines.F 810 RI_IWMIX 
         diffus(i,0,2) = c0
./pkg/kpp/kpp_routines.F 811 RI_IWMIX 
         diffus(i,0,3) = c0
./pkg/kpp/kpp_routines.F 94 KPPMIX 
      _KPP_RL diffus(imt,0:Nrp1,mdiff)