Symbol Description Uses
PI 68


File Line number Procedure Code
./model/src/calc_diffusivity.F 60 CALC_DIFFUSIVITY 
     & *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0)