Input file: test T_SC.phr Output file: test T_SC.phr.outUsing PHREEQC: version 3.7.3, compiled December 2, 2021Database file: c:\phreeqc\database\phreeqc.dat------------------Reading data base.------------------ SOLUTION_MASTER_SPECIES SOLUTION_SPECIES PHASES EXCHANGE_MASTER_SPECIES EXCHANGE_SPECIES SURFACE_MASTER_SPECIES SURFACE_SPECIES RATES END------------------------------------Reading input data for simulation 1.------------------------------------ PRINT reset false user_print true SOLUTION 1 units mmole/kgw Ca 0 Mg 1 charge Alkalinity 1 SOLUTION 2 units mmole/kgw Ca 1 charge Mg 0 Alkalinity 1 USER_PRINT start 10 PRINT "Solution number : ", CELL_NO 20 PRINT "Transference number (Ca+2, CaHCO3+) : ", T_SC("Ca+2"), T_SC("CaHCO3+") 30 PRINT "Transference number (Mg+2, MgHCO3+) : ", T_SC("Mg+2"), T_SC("MgHCO3+") 40 PRINT "Transference number (Na+, Cl-, SO4-2) : ", T_SC("Na+"), T_SC("Cl-"), T_SC("SO4-2") end END----------------------------------User print-----------------------------------Solution number : 1 Transference number (Ca+2, CaHCO3+) : 0 0 Transference number (Mg+2, MgHCO3+) : 5.2916e-01 9.2752e-04 Transference number (Na+, Cl-, SO4-2) : 0 0 0 ----------------------------------User print-----------------------------------Solution number : 2 Transference number (Ca+2, CaHCO3+) : 5.5282e-01 1.0133e-03 Transference number (Mg+2, MgHCO3+) : 5.0275e-01 8.8123e-04 Transference number (Na+, Cl-, SO4-2) : 0 0 0 -------------------------------End of Run after 0.675 Seconds.-------------------------------
/* ---------------------------------------------------------------------- */LDBLE Phreeqc::calc_t_sc(const char* name)/* ---------------------------------------------------------------------- */{ char token[MAX_LENGTH]; class species* s_ptr; strcpy(token, name); s_ptr = s_search(token); if (s_ptr != NULL && s_ptr->in) { if (!s_ptr->z) return (0); calc_SC(); if (!SC) return (0); LDBLE t = s_ptr->dw_t_SC * 1e7 * F_C_MOL * F_C_MOL / (R_KJ_DEG_MOL * 298150.0) * viscos_0_25 / viscos_0; return (t / SC); } return (0);}/* ---------------------------------------------------------------------- */LDBLE Phreeqc::calc_f_visc(const char* name)/* ---------------------------------------------------------------------- */{ char token[MAX_LENGTH]; class species* s_ptr; if (print_viscosity) { strcpy(token, name); s_ptr = s_search(token); if (s_ptr != NULL && s_ptr->in) return s_ptr->dw_t_visc; } return 0;}