Symbol Description Uses
P0KAPPA 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 193 MOISTIO
      P0KAPPA  =  1000.0**RKAPPA
./pkg/fizhi/fizhi_moist.F 194 MOISTIO
      P0KINV   =  1. / P0KAPPA
./pkg/fizhi/fizhi_moist.F 373 MOISTIO
             TH(I,L) = TH(I,L) * P0KAPPA
./pkg/fizhi/fizhi_moist.F 457 MOISTIO
        TMP5(I,1) = PTOPKAP / P0KAPPA
./pkg/fizhi/fizhi_moist.F 475 MOISTIO
      tmp2(i,1) = TH(i,NSUBCL) * PLKE(i,NSUBCL)/P0KAPPA