max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 00:28:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Changed examples/ex21 encoding to UTF-8

Browse Source
This commit is contained in:
Charlton, Scott R 2024-04-18 13:10:26 -06:00
parent fbe17c9e10
commit 47ace2e02e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ex21
View File

@ -82,7 +82,7 @@ USER_PUNCH
# 140 CEC = 0.12 * rho_b_eps # CEC / (eq/L porewater)
# adapted for the harmonic mean calc's in version 3.4.2
140 CEC = 0.09 * rho_b_eps # CEC / (eq/L porewater)
150 A_por = 37e3 * rho_b_eps # pore surface area / (m²/L porewater)
150 A_por = 37e3 * rho_b_eps # pore surface area / (m²/L porewater)
151 correct_$ = ' false'
# 152 correct_$ = ' true' # if 'true' correct the co-ion concentrations in the Donnan volume
@ -106,7 +106,7 @@ USER_PUNCH
310 READ profile_y2$(1), profile_y2$(2), profile_y2$(3), profile_y2$(4)
# Define model parameters...
350 Dw = 2.5e-9 # default tracer diffusion coefficient / (m²/s)
350 Dw = 2.5e-9 # default tracer diffusion coefficient / (m²/s)
360 nfilt1 = 1 # number of cells in filter 1
370 nfilt2 = 1 # number of cells in filter 2
380 nclay = 11 # number of clay cells
@ -201,7 +201,7 @@ USER_PUNCH
# Define mixing factors for the diffusive flux between cells 1 and 2:
# J_12 = -2 * Dw / (x_1 / g_1 + x_2 / g_2) * (c_2 - c_1)
# Multiply with dt * A / (V = 1e-3 m³). (Actual volumes are given with SOLUTION; -water)
# Multiply with dt * A / (V = 1e-3 m³). (Actual volumes are given with SOLUTION; -water)
# Use harmonic mean: g_1 = por_1 / G_1, g_2 = por_2 / G_2, x_1 = Delta(x_1), etc.
1400 IF nfilt1 > 0 THEN gf1 = por_filter1 / G_filter1
1410 IF nfilt2 > 0 THEN gf2 = por_filter2 / G_filter2