'SELECTED_OUTPUT ', ' -high precision TRUE', ' -molalities HCO3- CO3-2 H+ OH-' # Track carbonate species for alkalinity calculation ) phrRunString(input) output <- phrGetSelectedOutput() # Calculate alkalinity from carbonate species (carb_alk = [HCO3-] + 2[CO3-2]) hco3 <- output$n1$m_HCO3. co3 <- output$n1$m_CO3.2 H <- output$n1$m_H. OH <- output$n1$m_OH # Calculate alkalinity in mmol/kgw # Note: Converting from molalities to mmol/kgw Alkalinity[nn, mm] <- hco3 * 1000 + 2 * co3 * 1000 - H *1000+OH*1000
SELECTED_OUTPUT; -alkalinity true
PRINT; -alkalinity true