1348
1347
for Number_of_iterations in range(0, 3):
1350
1349
delta_v = specvol(SA_old, CT, p) - v_lab
1351
1351
SA = SA_old - delta_v / v_SA # Half way through the mod. N-R method.
1352
1352
SA_mean = 0.5 * (SA + SA_old)
1353
1353
rho, alpha, beta = rho_alpha_beta(SA_mean, CT, p)
1355
1355
SA = SA_old - delta_v / v_SA
1359
1358
# After two iterations of this modified Newton-Raphson iteration,
1360
1359
# the error in SA is no larger than 8x10^-13 g kg^-1, which