Symbol Description Uses
invtk 52


File Line number Procedure Code
./pkg/dic/carbon_chem.F 1008 CARBON_COEFFS_PRESSURE_DEP 
           ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk -
./pkg/dic/carbon_chem.F 1011 CARBON_COEFFS_PRESSURE_DEP 
           ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 -
./pkg/dic/carbon_chem.F 1030 CARBON_COEFFS_PRESSURE_DEP 
     &          1.728*s15 - 0.0996*s2)*invtk +
./pkg/dic/carbon_chem.F 1047 CARBON_COEFFS_PRESSURE_DEP 
           ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 -
./pkg/dic/carbon_chem.F 1049 CARBON_COEFFS_PRESSURE_DEP 
     &          (-106.736*invtk + 0.69171)*sqrts +
./pkg/dic/carbon_chem.F 1050 CARBON_COEFFS_PRESSURE_DEP 
     &          (-0.65643*invtk - 0.01844)*s)
./pkg/dic/carbon_chem.F 1054 CARBON_COEFFS_PRESSURE_DEP 
           ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 -
./pkg/dic/carbon_chem.F 1056 CARBON_COEFFS_PRESSURE_DEP 
     &          (-160.340*invtk + 1.3566) * sqrts +
./pkg/dic/carbon_chem.F 1057 CARBON_COEFFS_PRESSURE_DEP 
     &          (0.37335*invtk - 0.05778) * s)
./pkg/dic/carbon_chem.F 1061 CARBON_COEFFS_PRESSURE_DEP 
           ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 +
./pkg/dic/carbon_chem.F 1062 CARBON_COEFFS_PRESSURE_DEP 
     &          (17.27039*invtk + 2.81197) *
./pkg/dic/carbon_chem.F 1063 CARBON_COEFFS_PRESSURE_DEP 
     &          sqrts + (-44.99486*invtk - 0.09984) * s)
./pkg/dic/carbon_chem.F 1067 CARBON_COEFFS_PRESSURE_DEP 
           aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 -
./pkg/dic/carbon_chem.F 1069 CARBON_COEFFS_PRESSURE_DEP 
     &          (-458.79*invtk + 3.5913) * sqrtis +
./pkg/dic/carbon_chem.F 1070 CARBON_COEFFS_PRESSURE_DEP 
     &          (188.74*invtk - 1.5998) * is +
./pkg/dic/carbon_chem.F 1071 CARBON_COEFFS_PRESSURE_DEP 
     &          (-12.1652*invtk + 0.07871) * is2 +
./pkg/dic/carbon_chem.F 1076 CARBON_COEFFS_PRESSURE_DEP 
           akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 -
./pkg/dic/carbon_chem.F 1078 CARBON_COEFFS_PRESSURE_DEP 
     &          (118.67*invtk - 5.977 + 1.0495 * dlogtk) *
./pkg/dic/carbon_chem.F 1083 CARBON_COEFFS_PRESSURE_DEP 
           aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 -
./pkg/dic/carbon_chem.F 1085 CARBON_COEFFS_PRESSURE_DEP 
     &          (-13856*invtk + 324.57 - 47.986*dlogtk)*sqrtis +
./pkg/dic/carbon_chem.F 1086 CARBON_COEFFS_PRESSURE_DEP 
     &          (35474*invtk - 771.54 + 114.723*dlogtk)*is -
./pkg/dic/carbon_chem.F 1087 CARBON_COEFFS_PRESSURE_DEP 
     &          2698*invtk*is**1.5 + 1776*invtk*is2 +
./pkg/dic/carbon_chem.F 1092 CARBON_COEFFS_PRESSURE_DEP 
           akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis +
./pkg/dic/carbon_chem.F 689 CARBON_COEFFS 
        _RL  invtk
./pkg/dic/carbon_chem.F 715 CARBON_COEFFS 
           invtk=1.0 _d 0/tk
./pkg/dic/carbon_chem.F 741 CARBON_COEFFS 
           ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk -
./pkg/dic/carbon_chem.F 744 CARBON_COEFFS 
           ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0-
./pkg/dic/carbon_chem.F 750 CARBON_COEFFS 
     &          77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk +
./pkg/dic/carbon_chem.F 757 CARBON_COEFFS 
           ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 -
./pkg/dic/carbon_chem.F 759 CARBON_COEFFS 
     &          (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts +
./pkg/dic/carbon_chem.F 760 CARBON_COEFFS 
     &          (-0.65643 _d 0*invtk - 0.01844 _d 0)*s)
./pkg/dic/carbon_chem.F 764 CARBON_COEFFS 
           ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 -
./pkg/dic/carbon_chem.F 766 CARBON_COEFFS 
     &          (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts +
./pkg/dic/carbon_chem.F 767 CARBON_COEFFS 
     &          (0.37335 _d 0*invtk - 0.05778 _d 0) * s)
./pkg/dic/carbon_chem.F 771 CARBON_COEFFS 
           ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 +
./pkg/dic/carbon_chem.F 772 CARBON_COEFFS 
     &          (17.27039 _d 0*invtk + 2.81197 _d 0) *
./pkg/dic/carbon_chem.F 773 CARBON_COEFFS 
     &          sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s)
./pkg/dic/carbon_chem.F 777 CARBON_COEFFS 
           aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 -
./pkg/dic/carbon_chem.F 779 CARBON_COEFFS 
     &          (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis +
./pkg/dic/carbon_chem.F 780 CARBON_COEFFS 
     &          (188.74 _d 0*invtk - 1.5998 _d 0) * is +
./pkg/dic/carbon_chem.F 781 CARBON_COEFFS 
     &          (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 +
./pkg/dic/carbon_chem.F 786 CARBON_COEFFS 
           akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 -
./pkg/dic/carbon_chem.F 788 CARBON_COEFFS 
     &          (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk)
./pkg/dic/carbon_chem.F 793 CARBON_COEFFS 
           aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 -
./pkg/dic/carbon_chem.F 795 CARBON_COEFFS 
     &   (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+
./pkg/dic/carbon_chem.F 796 CARBON_COEFFS 
     &   (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is -
./pkg/dic/carbon_chem.F 797 CARBON_COEFFS 
     &          2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 +
./pkg/dic/carbon_chem.F 802 CARBON_COEFFS 
           akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 +
./pkg/dic/carbon_chem.F 918 CARBON_COEFFS_PRESSURE_DEP 
        _RL  invtk
./pkg/dic/carbon_chem.F 981 CARBON_COEFFS_PRESSURE_DEP 
           invtk=1.0/tk