SOLUTION 1 SEAWATER FROM NORDSTROM AND OTHERS (1979) units ppm pH 8.22 density 1.023 temp 25.0 Ca 412.3 Mg 1291.8 Na 10768.0 K 399.1 Si 4.28 Cl 19353.0 Alkalinity 141.682 as HCO3 S(6) 2712.0USER_PRINT-start10 Ca_meql = TOT("Ca")*2*1e3*TOT("water")/SOLN_VOL20 Mg_meql = TOT("Mg")*2*1e3*TOT("water")/SOLN_VOL30 Na_meql = TOT("Na")*1e3*TOT("water")/SOLN_VOL40 K_meql = TOT("K")*1e3*TOT("water")/SOLN_VOL60 Alk_meql = ALK*1e3*TOT("water")/SOLN_VOL100 REM ==Total hardness mol/L ======================================110 TH = (Ca_meql + Mg_meql)/2/1e3120 REM ==Total hardness mg/L as CaCO3 ==============================130 TH_CaCO3 = TH * 1000 * GFW("CaCO3") 140 REM ==Sodium absorption ratio =================================== 150 IF (Alk_meql > 0 AND (Ca_meql + Mg_meql) > 0) THEN \ SAR = Na_meql/((Ca_meql + Mg_meql)/2)^0.5160 REM Adjusted SAR is calculated after calcite equilibrium170 REM ==Residual sodium carbonate index ===========================180 IF (Alk_meql > 0 AND (Ca_meql + Mg_meql) > 0) THEN \ RSC = Alk_meql - (Ca_meql + Mg_meql)190 REM ==Permeability index ========================================200 IF (Ca_meql + Mg_meql + Na_meql > 0) THEN \ perm_index = (Na_meql + (Alk_meql)^0.5) / (Ca_meql + Mg_meql + Na_meql) * 100210 REM ==Kelly ratio ===============================================220 IF (Ca_meql + Mg_meql > 0) THEN \ KR = Na_meql / (Ca_meql + Mg_meql)230 REM ==Percent sodium ============================================240 IF (Ca_meql + Mg_meql + Na_meql + K_meql > 0) THEN \ pct_Na = (Na_meql + K_meql) / (Ca_meql + Mg_meql + Na_meql + K_meql)250 PRINT "Na, meq/L: ", STR_F$(Na_meql,12,1)260 PRINT "K, meq/L: ", STR_F$(K_meql,12,1)270 PRINT "Ca, meq/L: ", STR_F$(Ca_meql,12,1)280 PRINT "Mg, meq/L: ", STR_F$(Mg_meql,12,1)290 PRINT "Alkalinity, meq/L: ", STR_F$(Alk_meql,12,1)300 PRINT "Specific conductance, uS/cm: ", STR_F$(SC,10,0)310 PRINT "Total Hardness, mol/L: ", STR_F$(TH,14,3)320 PRINT "Total Hardness, mg/L CaCO3: ", STR_F$(TH_CaCO3,10,0)330 PRINT "SAR, sodium absorption ratio: ", STR_F$(SAR,13,2)340 PRINT "RSC, residual sodium carbonate index: ", STR_F$(RSC,10,0)350 PRINT "Permiability index: ", STR_F$(Perm_index,10,0)360 PRINT "Kelly ratio: ", STR_F$(KR,12,1)370 PRINT "Percent sodium: ", STR_F$(pct_Na,12,1)-endSELECTED_OUTPUT 2-file sar.selUSER_PUNCH 2-headings SC TH TH_CaCO3 SAR RSC PI KR Pct_Na Na_meql K_meql Ca_meql Mg_meql Alk_meql-start10 Ca_meql = TOT("Ca")*2*1e3*TOT("water")/SOLN_VOL20 Mg_meql = TOT("Mg")*2*1e3*TOT("water")/SOLN_VOL30 Na_meql = TOT("Na")*1e3*TOT("water")/SOLN_VOL40 K_meql = TOT("K")*1e3*TOT("water")/SOLN_VOL60 Alk_meql = ALK*1e3*TOT("water")/SOLN_VOL100 REM ==Total hardness mol/L ======================================110 TH = (Ca_meql + Mg_meql)/2/1e3120 REM ==Total hardness mg/L as CaCO3 ==============================130 TH_CaCO3 = TH * 1000 * GFW("CaCO3") 140 REM ==Sodium absorption ratio =================================== 150 IF (Alk_meql > 0 AND (Ca_meql + Mg_meql) > 0) THEN \ SAR = Na_meql*1000/((Ca_meql + Mg_meql)*1000/2)^0.5160 REM Adjusted SAR is calculated after calcite equilibrium170 REM ==Residual sodium carbonate index ===========================180 IF (Alk_meql > 0 AND (Ca_meql + Mg_meql) > 0) THEN \ RSC = Alk_meql - (Ca_meql + Mg_meql)190 REM ==Permeability index ========================================200 IF (Ca_meql + Mg_meql + Na_meql > 0) THEN \ perm_index = (Na_meql + (Alk_meql)^0.5) / (Ca_meql + Mg_meql + Na_meql) * 100210 REM ==Kelly ratio ===============================================220 IF (Ca_meql + Mg_meql > 0) THEN \ KR = Na_meql / (Ca_meql + Mg_meql)230 REM ==Percent sodium ============================================240 IF (Ca_meql + Mg_meql + Na_meql + K_meql > 0) THEN \ pct_Na = (Na_meql + K_meql) / (Ca_meql + Mg_meql + Na_meql + K_meql)300 PUNCH SC310 PUNCH TH320 PUNCH TH_CaCO3330 PUNCH SAR340 PUNCH RSC350 PUNCH Perm_index360 PUNCH KR370 PUNCH pct_Na380 PUNCH Na_meql, K_meql, Ca_meql, Mg_meql, Alk_meql-end