Symbol Description Uses
akap1 3



File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 924 PKAPPA
      _RL akap1,getcon
./pkg/fizhi/fizhi_utils.F 927 PKAPPA
      akap1 = 1.0 + getcon('KAPPA')
./pkg/fizhi/fizhi_utils.F 934 PKAPPA
     .           /  ( akap1* (ple (i,j,l+1)-ple (i,j,l)) )