mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 16:44:49 +01:00
60a1544019
Will remove cpp and header files and make phreeqc an external directory. git-svn-id: svn://136.177.114.72/svn_GW/phreeqcpp/trunk@785 1feff8c3-07ed-0310-ac33-dd36852eb9cd
104 lines
2.9 KiB
C++
104 lines
2.9 KiB
C++
#define EXTERNAL extern
|
|
#include "global.h"
|
|
#include "phqalloc.h"
|
|
#include "output.h"
|
|
#include "phrqproto.h"
|
|
|
|
static char const svnid[] = "$Id: advection.c 78 2005-02-01 22:47:12Z dlpark $";
|
|
|
|
/* ---------------------------------------------------------------------- */
|
|
int advection(void)
|
|
/* ---------------------------------------------------------------------- */
|
|
{
|
|
int i, n;
|
|
LDBLE kin_time;
|
|
if (svnid == NULL) fprintf(stderr," ");
|
|
/*
|
|
* Calculate advection
|
|
*/
|
|
state = ADVECTION;
|
|
/* mass_water_switch = TRUE; */
|
|
/*
|
|
* Check existence of all solutions
|
|
*/
|
|
for (i = 0; i <= count_ad_cells; i++) {
|
|
if (solution_bsearch(i, &n, TRUE) == NULL) {
|
|
input_error++;
|
|
sprintf(error_string, "Solution %d is needed for advection, but is not defined.", i);
|
|
error_msg(error_string, CONTINUE);
|
|
}
|
|
}
|
|
/*
|
|
* Check kinetics logic
|
|
*/
|
|
kin_time = advection_kin_time;
|
|
if (kin_time <= 0.0) {
|
|
for (i = 1; i <= count_ad_cells; i++) {
|
|
if (kinetics_bsearch(i, &n) != NULL) {
|
|
input_error++;
|
|
sprintf(error_string, "KINETIC reaction(s) defined, but time_step is not defined in ADVECTION keyword.");
|
|
error_msg(error_string, CONTINUE);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
/*
|
|
* Quit on error
|
|
*/
|
|
if (input_error > 0) {
|
|
error_msg("Program terminating due to input errors.", STOP);
|
|
}
|
|
/*
|
|
* Equilibrate solutions with phases, exchangers, surfaces
|
|
*/
|
|
last_model.force_prep = TRUE;
|
|
rate_sim_time_start = 0;
|
|
for (advection_step = 1; advection_step <= count_ad_shifts; advection_step++) {
|
|
output_msg(OUTPUT_LOG, "\nBeginning of advection time step %d, cumulative pore volumes %f.\n", advection_step, (double) (((LDBLE) advection_step) / ((LDBLE) count_ad_cells)));
|
|
if (pr.use == TRUE && pr.all == TRUE) {
|
|
output_msg(OUTPUT_MESSAGE, "Beginning of advection time step %d, cumulative pore volumes %f.\n",
|
|
advection_step, (double) (((LDBLE) advection_step) / ((LDBLE) count_ad_cells)));
|
|
}
|
|
/*
|
|
* Advect
|
|
*/
|
|
for (i = count_ad_cells; i > 0; i--) {
|
|
solution_duplicate(i - 1, i);
|
|
}
|
|
/*
|
|
* Equilibrate and (or) mix
|
|
*/
|
|
for (i = 1; i <= count_ad_cells; i++) {
|
|
|
|
cell_no = i;
|
|
set_advection(i, TRUE, TRUE, i);
|
|
run_reactions(i, kin_time, TRUE, 1.0);
|
|
if (advection_kin_time_defined == TRUE) {
|
|
rate_sim_time = rate_sim_time_start + kin_time;
|
|
}
|
|
output_msg(OUTPUT_LOG, "\nCell %d.\n\n", i);
|
|
if (pr.use == TRUE && pr.all == TRUE &&
|
|
advection_step % print_ad_modulus == 0 &&
|
|
advection_print[i-1] == TRUE) {
|
|
output_msg(OUTPUT_MESSAGE, "\nCell %d.\n\n", i);
|
|
}
|
|
if (advection_step % punch_ad_modulus == 0 &&
|
|
advection_punch[i-1] == TRUE ) {
|
|
punch_all();
|
|
}
|
|
if (advection_step % print_ad_modulus == 0 &&
|
|
advection_print[i-1] == TRUE ) {
|
|
print_all();
|
|
}
|
|
if (i > 1) solution_duplicate(-2, i-1);
|
|
saver();
|
|
}
|
|
solution_duplicate(-2, count_ad_cells);
|
|
rate_sim_time_start += kin_time;
|
|
}
|
|
initial_total_time += rate_sim_time_start;
|
|
/* free_model_allocs(); */
|
|
mass_water_switch = FALSE;
|
|
return(OK);
|
|
}
|