Symbol Description Uses
sqrtis 20


File Line number Procedure Code
./pkg/bling/bling_carbon_chem.F 1003 CARBON_COEFFS_PRESSURE_DEP 
     &          (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis +
./pkg/bling/bling_carbon_chem.F 1010 CARBON_COEFFS_PRESSURE_DEP 
           akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis +
./pkg/bling/bling_carbon_chem.F 545 CARBON_COEFFS 
        _RL  sqrtis
./pkg/bling/bling_carbon_chem.F 587 CARBON_COEFFS 
           sqrtis=sqrt(is)
./pkg/bling/bling_carbon_chem.F 667 CARBON_COEFFS 
     &          (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis +
./pkg/bling/bling_carbon_chem.F 683 CARBON_COEFFS 
     &   (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+
./pkg/bling/bling_carbon_chem.F 691 CARBON_COEFFS 
     &   1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) +
./pkg/bling/bling_carbon_chem.F 805 CARBON_COEFFS_PRESSURE_DEP 
        _RL  sqrtis
./pkg/bling/bling_carbon_chem.F 881 CARBON_COEFFS_PRESSURE_DEP 
           sqrtis=sqrt(is)
./pkg/bling/bling_carbon_chem.F 987 CARBON_COEFFS_PRESSURE_DEP 
     &          (-458.79*invtk + 3.5913) * sqrtis +
./pkg/dic/carbon_chem.F 557 CARBON_COEFFS 
        _RL  sqrtis
./pkg/dic/carbon_chem.F 599 CARBON_COEFFS 
           sqrtis=sqrt(is)
./pkg/dic/carbon_chem.F 671 CARBON_COEFFS 
     &          (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis +
./pkg/dic/carbon_chem.F 687 CARBON_COEFFS 
     &   (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+
./pkg/dic/carbon_chem.F 695 CARBON_COEFFS 
     &   1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) +
./pkg/dic/carbon_chem.F 807 CARBON_COEFFS_PRESSURE_DEP 
        _RL  sqrtis
./pkg/dic/carbon_chem.F 879 CARBON_COEFFS_PRESSURE_DEP 
           sqrtis=sqrt(is)
./pkg/dic/carbon_chem.F 963 CARBON_COEFFS_PRESSURE_DEP 
     &          (-458.79*invtk + 3.5913) * sqrtis +
./pkg/dic/carbon_chem.F 979 CARBON_COEFFS_PRESSURE_DEP 
     &          (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis +
./pkg/dic/carbon_chem.F 986 CARBON_COEFFS_PRESSURE_DEP 
           akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis +