Symbol Description Uses
S0 7


File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 166 DO_FIZHI 
      S0 = getcon('S0')
./pkg/fizhi/do_fizhi.F 179 DO_FIZHI 
       radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j)