Symbol Description Uses
kcip1 5



File Line number Procedure Code
./pkg/layers/layers_calc.F 167 LAYERS_CALC
           kcip1 = MIN(kci+1,Nr)
./pkg/layers/layers_calc.F 170 LAYERS_CALC
           delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_calc.F 238 LAYERS_CALC
           kcip1 = MIN(kci+1,Nr)
./pkg/layers/layers_calc.F 241 LAYERS_CALC
           delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_calc.F 63 LAYERS_CALC
      INTEGER kcip1