Symbol Description Uses
ki 103


File Line number Procedure Code
./pkg/kpp/kpp_routines.F 1004 RI_IWMIX 
            Rig   = max ( diffus(i,ki,2) , BVSQcon )
./pkg/kpp/kpp_routines.F 1011 RI_IWMIX 
            Rig  = max ( diffus(i,ki,1), c0 )
./pkg/kpp/kpp_routines.F 1020 RI_IWMIX 
            kp1 = MIN(ki+1,Nr)
./pkg/kpp/kpp_routines.F 1022 RI_IWMIX 
            diffus(i,ki,1) = viscArNr(1)
./pkg/kpp/kpp_routines.F 1023 RI_IWMIX 
            diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 1024 RI_IWMIX 
            diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 1028 RI_IWMIX 
              diffus(i,ki,1) = viscArNr(1)
./pkg/kpp/kpp_routines.F 1029 RI_IWMIX 
              diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 1030 RI_IWMIX 
              diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 1035 RI_IWMIX 
              diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0
./pkg/kpp/kpp_routines.F 1036 RI_IWMIX 
              diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0
./pkg/kpp/kpp_routines.F 1037 RI_IWMIX 
              diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0
./pkg/kpp/kpp_routines.F 1287 BLMIX 
      integer i, kn, ki
./pkg/kpp/kpp_routines.F 1383 BLMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 1386 BLMIX 
         kkppkey = (ikppkey-1)*Nr + ki
./pkg/kpp/kpp_routines.F 1394 BLMIX 
            sig      = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1413 BLMIX 
            sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1426 BLMIX 
            blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm)
./pkg/kpp/kpp_routines.F 1427 BLMIX 
            blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs)
./pkg/kpp/kpp_routines.F 1428 BLMIX 
            blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt)
./pkg/kpp/kpp_routines.F 1435 BLMIX 
            ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar)
./pkg/kpp/kpp_routines.F 1521 ENHANCE 
      integer ki, i, md
./pkg/kpp/kpp_routines.F 1525 ENHANCE 
         ki = kbl(i)-1
./pkg/kpp/kpp_routines.F 1526 ENHANCE 
         if ((ki .ge. 1) .and. (ki .lt. Nr)) then
./pkg/kpp/kpp_routines.F 1527 ENHANCE 
            delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1529 ENHANCE 
               dkmp5         =      casea(i)  * diffus(i,ki,md) +
./pkg/kpp/kpp_routines.F 1530 ENHANCE 
     1                         (1.- casea(i)) * blmc  (i,ki,md)
./pkg/kpp/kpp_routines.F 1533 ENHANCE 
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 1536 ENHANCE 
            ghat(i,ki) = (1.- casea(i)) * ghat(i,ki)
./pkg/kpp/kpp_routines.F 935 RI_IWMIX 
      integer i, ki, kp1
./pkg/kpp/kpp_routines.F 956 RI_IWMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 958 RI_IWMIX 
            diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 959 RI_IWMIX 
            diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 960 RI_IWMIX 
            diffus(i,ki,3) = 0.
./pkg/kpp/kpp_routines.F 965 RI_IWMIX 
      do ki = 1, Nr
./pkg/kpp/kpp_routines.F 968 RI_IWMIX 
               diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 969 RI_IWMIX 
               diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 970 RI_IWMIX 
            elseif (ki      .GE. kmtj(i)) then
./pkg/kpp/kpp_routines.F 971 RI_IWMIX 
               diffus(i,ki,1) = diffus(i,ki-1,1)
./pkg/kpp/kpp_routines.F 972 RI_IWMIX 
               diffus(i,ki,2) = diffus(i,ki-1,2)
./pkg/kpp/kpp_routines.F 974 RI_IWMIX 
               diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 975 RI_IWMIX 
     &              / max( Shsq(i,ki), phepsi )
./pkg/kpp/kpp_routines.F 976 RI_IWMIX 
               diffus(i,ki,2) = dbloc(i,ki)   / (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 999 RI_IWMIX 
      do ki = 1, Nr
./pkg/streamice/streamice_petsc_numerate.F 35 STREAMICE_PETSC_NUMERATE 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_solo_timestep.F 40 STREAMICE_SOLO_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) = 2.0
./pkg/streamice/streamice_velmask_upd.F 104 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 105 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 107 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F 110 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 111 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 113 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 116 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 124 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 125 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 126 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 128 STREAMICE_VELMASK_UPD 
               if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 129 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 138 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 139 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 140 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 144 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 145 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 146 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 148 STREAMICE_VELMASK_UPD 
              STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 150 STREAMICE_VELMASK_UPD 
              DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 151 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 40 STREAMICE_VELMASK_UPD 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_velmask_upd.F 76 STREAMICE_VELMASK_UPD 
            DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 77 STREAMICE_VELMASK_UPD 
             if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 78 STREAMICE_VELMASK_UPD 
              STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 80 STREAMICE_VELMASK_UPD 
             if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 81 STREAMICE_VELMASK_UPD 
              STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 86 STREAMICE_VELMASK_UPD 
           DO ki=0,1
./pkg/streamice/streamice_velmask_upd.F 87 STREAMICE_VELMASK_UPD 
            maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj))
./pkg/streamice/streamice_velmask_upd.F 90 STREAMICE_VELMASK_UPD 
               if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 91 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 93 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 94 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 97 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0
./pkg/atm_phys/atm_phys_driver.F 127 ATM_PHYS_DRIVER 
      INTEGER k, kc, ki, kp
./pkg/atm_phys/atm_phys_driver.F 184 ATM_PHYS_DRIVER 
          ki = Nr-k+2
./pkg/atm_phys/atm_phys_driver.F 185 ATM_PHYS_DRIVER 
          pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) )
./pkg/atm_phys/atm_phys_driver.F 200 ATM_PHYS_DRIVER 
        ki = Nr-k+2
./pkg/atm_phys/atm_phys_driver.F 201 ATM_PHYS_DRIVER 
        pHalf3d(:,:,k) = rF(ki)
./pkg/atm_phys/atm_phys_driver.F 230 ATM_PHYS_DRIVER 
        ki = Nr-k+2
./pkg/atm_phys/atm_phys_driver.F 231 ATM_PHYS_DRIVER 
        zHalf3d(:,:,k) = phiRef(2*ki-1)*recip_gravity