fix typo in B2 exponent (#2)

* fix typo in B2 exponent

previous: B2 = 1.03410e-3
corrected: B2 = 1.03410e-2

* fix typo in B2 exponent

previous: B2 = 1.03410e-3
corrected: B2 = 1.03410e-2

Author: antoine250

DOXY_to_PPOX.R

@@ -29,7 +29,7 @@ sca_T=log((298.15-TEMP_DOXY)/(273.15+TEMP_DOXY))
 
 # O2 solubility separated in Scorr and Tcorr (SCOR WG 142 coefficients: Garcia and Gordon 1992, Benson and Krause 1984 refit )
 TCorr <- 44.6596*(exp(2.00907+3.22014*sca_T+4.05010*sca_T^2+4.94457*sca_T^3-2.56847e-1*sca_T^4+3.88767*sca_T^5))
-Scorr <- exp(PSAL_DOXY*(-6.24523e-3-7.37614e-3*sca_T-1.03410e-3*sca_T^2-8.17083e-3*sca_T^3)-4.88682e-7*PSAL_DOXY^2)
+Scorr <- exp(PSAL_DOXY*(-6.24523e-3-7.37614e-3*sca_T-1.03410e-2*sca_T^2-8.17083e-3*sca_T^3)-4.88682e-7*PSAL_DOXY^2)
 
 
 PPOX=1013.25*DOXY*(xO2*(atm_press-pH2Osatsal))/(TCorr*Scorr)*exp(Vm*PRES_DOXY/(R*(TEMP_DOXY+273.15))) # en mbar

PPOX_to_DOXY.R

@@ -32,7 +32,7 @@ sca_T=log((298.15-TEMP_DOXY)/(273.15+TEMP_DOXY))
 
 # O2 solubility separated in Scorr and Tcorr (SCOR WG 142 coefficients: Garcia and Gordon 1992, Benson and Krause 1984 refit )
 TCorr <- 44.6596*(exp(2.00907+3.22014*sca_T+4.05010*sca_T^2+4.94457*sca_T^3-2.56847e-1*sca_T^4+3.88767*sca_T^5))
-Scorr <- exp(PSAL_DOXY*(-6.24523e-3-7.37614e-3*sca_T-1.03410e-3*sca_T^2-8.17083e-3*sca_T^3)-4.88682e-7*PSAL_DOXY^2)
+Scorr <- exp(PSAL_DOXY*(-6.24523e-3-7.37614e-3*sca_T-1.03410e-2*sca_T^2-8.17083e-3*sca_T^3)-4.88682e-7*PSAL_DOXY^2)
 
 DOXY=PPOX*(TCorr*Scorr)/(exp(Vm*PRES_DOXY/(R*(TEMP_DOXY+273.15)))*(xO2*(atm_press-pH2Osatsal))) # (DOXY en micromol / l)