Symbol Description Uses
kgc 5


File Line number Procedure Code
./pkg/layers/layers_fluxcalc.F 409 LAYERS_DIAPYCNAL 
      INTEGER kgc(sNx+1,sNy+1)
./pkg/layers/layers_fluxcalc.F 431 LAYERS_DIAPYCNAL 
          kgc(i,j) = Nlayers
./pkg/layers/layers_fluxcalc.F 464 LAYERS_DIAPYCNAL 
     O      kgc,
./pkg/layers/layers_fluxcalc.F 472 LAYERS_DIAPYCNAL 
          IF ( kgc(i,j) .LE. 0 ) THEN
./pkg/layers/layers_fluxcalc.F 490 LAYERS_DIAPYCNAL 
         kloc = kgc(i,j)