Symbol Description Uses
kgc 6


File Line number Procedure Code
./pkg/layers/layers_fluxcalc.F 456 LAYERS_DIAPYCNAL 
      INTEGER kgc(sNx+1,sNy+1)
./pkg/layers/layers_fluxcalc.F 485 LAYERS_DIAPYCNAL 
          kgc(i,j) = Nlayers
./pkg/layers/layers_fluxcalc.F 564 LAYERS_DIAPYCNAL 
     O      kgc,
./pkg/layers/layers_fluxcalc.F 572 LAYERS_DIAPYCNAL 
          IF ( kgc(i,j) .LE. 0 ) THEN
./pkg/layers/layers_fluxcalc.F 623 LAYERS_DIAPYCNAL 
         Hc(i,j,kgc(i,j),bi,bj) = Hc(i,j,kgc(i,j),bi,bj)