Mercurial > public > ostc4

diff Discovery/Src/buehlmann.c @ 1052:3029dd4398a5 GasConsumption tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.7.5 beta release, fix Surface-GF
author heinrichsweikamp
date Mon, 15 Dec 2025 17:56:25 +0100
parents 88b6ab90c55a
children
line wrap: on
line diff
--- a/Discovery/Src/buehlmann.c	Thu Nov 20 16:47:21 2025 +0100
+++ b/Discovery/Src/buehlmann.c	Mon Dec 15 17:56:25 2025 +0100
@@ -344,7 +344,7 @@
 			inertgas_b = ( ( buehlmann_N2_b[ci] *  gTissue_nitrogen_bar[ci]) + ( buehlmann_He_b[ci] * gTissue_helium_bar[ci]) ) / tissue_inertgas_saturation;
 		}
 
-		M_surf = inertgas_a + inertgas_b * pres_surface;
+		M_surf = pres_surface / inertgas_b + inertgas_a;
 		if (M_surf > pres_surface)
 		{
 			gf_surf = (tissue_inertgas_saturation - pres_surface) / (M_surf - pres_surface);