Symbol Description Uses
p0kappa 10



File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 131 DO_FIZHI
      _RL getcon, kappa, p0kappa, s0, ra
./pkg/fizhi/do_fizhi.F 165 DO_FIZHI
      p0kappa = 1000.0 ** kappa
./pkg/fizhi/do_fizhi.F 203 DO_FIZHI
       t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa
./pkg/fizhi/do_fizhi.F 299 DO_FIZHI
     .   swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj)