Symbol Description Uses
ki 111


File Line number Procedure Code
./pkg/kpp/kpp_routines.F 1016 RI_IWMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 1018 RI_IWMIX 
            diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 1019 RI_IWMIX 
            diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 1020 RI_IWMIX 
            diffus(i,ki,3) = 0.
./pkg/kpp/kpp_routines.F 1025 RI_IWMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 1028 RI_IWMIX 
               diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 1029 RI_IWMIX 
               diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 1030 RI_IWMIX 
            elseif (ki      .GE. kmtj(i)) then
./pkg/kpp/kpp_routines.F 1031 RI_IWMIX 
               diffus(i,ki,1) = diffus(i,ki-1,1)
./pkg/kpp/kpp_routines.F 1032 RI_IWMIX 
               diffus(i,ki,2) = diffus(i,ki-1,2)
./pkg/kpp/kpp_routines.F 1034 RI_IWMIX 
               diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1035 RI_IWMIX 
     &              / max( Shsq(i,ki), phepsi )
./pkg/kpp/kpp_routines.F 1036 RI_IWMIX 
               diffus(i,ki,2) = dbloc(i,ki)   / (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1063 RI_IWMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 1068 RI_IWMIX 
            Rig   = max ( diffus(i,ki,2) , BVSQcon )
./pkg/kpp/kpp_routines.F 1075 RI_IWMIX 
            Rig  = max ( diffus(i,ki,1), c0 )
./pkg/kpp/kpp_routines.F 1084 RI_IWMIX 
            kp1 = MIN(ki+1,Nr)
./pkg/kpp/kpp_routines.F 1086 RI_IWMIX 
            diffus(i,ki,1) = viscArNr(1)
./pkg/kpp/kpp_routines.F 1087 RI_IWMIX 
            diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 1088 RI_IWMIX 
            diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 1092 RI_IWMIX 
              diffus(i,ki,1) = viscArNr(1)
./pkg/kpp/kpp_routines.F 1093 RI_IWMIX 
              diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 1094 RI_IWMIX 
              diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 1099 RI_IWMIX 
              diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0
./pkg/kpp/kpp_routines.F 1100 RI_IWMIX 
              diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0
./pkg/kpp/kpp_routines.F 1101 RI_IWMIX 
              diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0
./pkg/kpp/kpp_routines.F 1354 BLMIX 
      integer i, kn, ki, kl
./pkg/kpp/kpp_routines.F 1456 BLMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 1459 BLMIX 
         kkppkey = (ikppkey-1)*Nr + ki
./pkg/kpp/kpp_routines.F 1467 BLMIX 
            sig      = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1490 BLMIX 
            sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1503 BLMIX 
            blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm)
./pkg/kpp/kpp_routines.F 1504 BLMIX 
            blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs)
./pkg/kpp/kpp_routines.F 1505 BLMIX 
            blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt)
./pkg/kpp/kpp_routines.F 1512 BLMIX 
            ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar)
./pkg/kpp/kpp_routines.F 1604 ENHANCE 
      integer ki, i, md
./pkg/kpp/kpp_routines.F 1608 ENHANCE 
         ki = kbl(i)-1
./pkg/kpp/kpp_routines.F 1609 ENHANCE 
         if ((ki .ge. 1) .and. (ki .lt. Nr)) then
./pkg/kpp/kpp_routines.F 1610 ENHANCE 
            delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1612 ENHANCE 
               dkmp5         =      casea(i)  * diffus(i,ki,md) +
./pkg/kpp/kpp_routines.F 1613 ENHANCE 
     1                         (1.- casea(i)) * blmc  (i,ki,md)
./pkg/kpp/kpp_routines.F 1616 ENHANCE 
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 1619 ENHANCE 
            ghat(i,ki) = (1.- casea(i)) * ghat(i,ki)
./pkg/kpp/kpp_routines.F 996 RI_IWMIX 
      integer i, ki, kp1
./model/src/calc_viscosity.F 116 CALC_VISCOSITY 
          kappaRU(i,j,k) = kappaRU(i,j,ki)
./model/src/calc_viscosity.F 117 CALC_VISCOSITY 
          kappaRV(i,j,k) = kappaRV(i,j,ki)
./model/src/calc_viscosity.F 48 CALC_VISCOSITY 
      INTEGER ki
./model/src/calc_viscosity.F 57 CALC_VISCOSITY 
       ki = MIN(k,Nr)
./model/src/calc_viscosity.F 61 CALC_VISCOSITY 
         kappaRU(i,j,k) = viscArNr(ki)
./model/src/calc_viscosity.F 62 CALC_VISCOSITY 
         kappaRV(i,j,k) = viscArNr(ki)
./pkg/streamice/streamice_petsc_numerate.F 35 STREAMICE_PETSC_NUMERATE 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_timestep.F 45 STREAMICE_TIMESTEP 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_velmask_upd.F 100 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 103 STREAMICE_VELMASK_UPD 
               STREAMICE_ufacemask(i+ki,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F 107 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 108 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 110 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F 113 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 114 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 116 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 119 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 127 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 128 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 129 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 131 STREAMICE_VELMASK_UPD 
               if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 132 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 141 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 142 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 143 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 147 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 148 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 149 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 151 STREAMICE_VELMASK_UPD 
              STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 153 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 154 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 43 STREAMICE_VELMASK_UPD 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_velmask_upd.F 79 STREAMICE_VELMASK_UPD 
            DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 80 STREAMICE_VELMASK_UPD 
             if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 81 STREAMICE_VELMASK_UPD 
              STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 83 STREAMICE_VELMASK_UPD 
             if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 84 STREAMICE_VELMASK_UPD 
              STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 89 STREAMICE_VELMASK_UPD 
           DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 90 STREAMICE_VELMASK_UPD 
            maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj))
./pkg/streamice/streamice_velmask_upd.F 93 STREAMICE_VELMASK_UPD 
               if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 94 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 96 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 97 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/atm_phys/atm_phys_dyn2phys.F 108 ATM_PHYS_DYN2PHYS 
        ki = Nr-k+2
./pkg/atm_phys/atm_phys_dyn2phys.F 109 ATM_PHYS_DYN2PHYS 
        pHalf3d(:,:,k) = rF(ki)
./pkg/atm_phys/atm_phys_dyn2phys.F 145 ATM_PHYS_DYN2PHYS 
        ki = Nr-k+2
./pkg/atm_phys/atm_phys_dyn2phys.F 146 ATM_PHYS_DYN2PHYS 
        zHalf3d(:,:,k) = phiRef(2*ki-1)*recip_gravity
./pkg/atm_phys/atm_phys_dyn2phys.F 64 ATM_PHYS_DYN2PHYS 
      INTEGER k, kc, ki, kp
./pkg/atm_phys/atm_phys_dyn2phys.F 81 ATM_PHYS_DYN2PHYS 
          ki = Nr-k+2
./pkg/atm_phys/atm_phys_dyn2phys.F 82 ATM_PHYS_DYN2PHYS 
          pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) )
./pkg/atm_phys/atm_phys_dyn2phys.F 92 ATM_PHYS_DYN2PHYS 
          ki = Nr-k+2
./pkg/atm_phys/atm_phys_dyn2phys.F 93 ATM_PHYS_DYN2PHYS 
          pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) )