Symbol Description Uses
kloc local copy of kgu/v to reduce accesses to index arrays 31



File Line number Procedure Code
./pkg/layers/layers_fluxcalc.F 192 LAYERS_FLUXCALC
         kloc = kgu(i,j)
./pkg/layers/layers_fluxcalc.F 194 LAYERS_FLUXCALC
         UH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 195 LAYERS_FLUXCALC
     &    UH(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 215 LAYERS_FLUXCALC
           UH(i,j,kloc,bi,bj) = UH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 222 LAYERS_FLUXCALC
         Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 271 LAYERS_FLUXCALC
         kloc = kgv(i,j)
./pkg/layers/layers_fluxcalc.F 273 LAYERS_FLUXCALC
         VH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 274 LAYERS_FLUXCALC
     &    VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 294 LAYERS_FLUXCALC
           VH(i,j,kloc,bi,bj) = VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 301 LAYERS_FLUXCALC
         Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 407 LAYERS_DIAPYCNAL
      INTEGER i,j,k,kk,kg,kci,kloc
./pkg/layers/layers_fluxcalc.F 490 LAYERS_DIAPYCNAL
         kloc = kgc(i,j)
./pkg/layers/layers_fluxcalc.F 493 LAYERS_DIAPYCNAL
          TtendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 494 LAYERS_DIAPYCNAL
     &     TtendSurf(i,j,kloc,bi,bj) + 
./pkg/layers/layers_fluxcalc.F 496 LAYERS_DIAPYCNAL
          StendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 497 LAYERS_DIAPYCNAL
     &     StendSurf(i,j,kloc,bi,bj) + 
./pkg/layers/layers_fluxcalc.F 500 LAYERS_DIAPYCNAL
         TtendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 501 LAYERS_DIAPYCNAL
     &     TtendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F 504 LAYERS_DIAPYCNAL
         TtendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 505 LAYERS_DIAPYCNAL
     &     TtendDiffr(i,j,kloc,bi,bj) + 
./pkg/layers/layers_fluxcalc.F 507 LAYERS_DIAPYCNAL
         StendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 508 LAYERS_DIAPYCNAL
     &     StendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F 511 LAYERS_DIAPYCNAL
         StendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 512 LAYERS_DIAPYCNAL
     &     StendDiffr(i,j,kloc,bi,bj) + 
./pkg/layers/layers_fluxcalc.F 514 LAYERS_DIAPYCNAL
         Hc(i,j,kloc,bi,bj) = Hc(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 90 LAYERS_FLUXCALC
      INTEGER i,j,k,kk,kg,kci,kp1,kloc