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 + |