Symbol Description Uses
P0KINV 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 192 MOISTIO
      P0KINV   =  1. / P0KAPPA
./pkg/fizhi/fizhi_moist.F 437 MOISTIO
        TMP5(I,L) = PLKE(I,L)*P0KINV
./pkg/fizhi/fizhi_moist.F 442 MOISTIO
        TMP5(I,lm+1) = PLKE(I,lm+1)*P0KINV
./pkg/fizhi/fizhi_moist.F 446 MOISTIO
        TMP5(I,NSUBCL+1) = PLKE(I,lm+1)*P0KINV
./pkg/fizhi/fizhi_moist.F 546 MOISTIO
        CVTH(I,L) =  CVTH(I,L) *P0KINV*SP(I)*tminv