You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
3.0 KiB
C
74 lines
3.0 KiB
C
#include <stdio.h>
|
|
#include <stddef.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include "genlib.h"
|
|
#include "geostat.h"
|
|
#include "toolsIO.h"
|
|
|
|
|
|
/* DebugInput */
|
|
/* */
|
|
/* Display the input data */
|
|
/* seed: seed */
|
|
/* grid: structure defining the actual grid */
|
|
/* filename: name of files */
|
|
/* variogram: struture defining the variogram model */
|
|
/* stat: struture defining the mean and the variance of permeability realization */
|
|
/* pression: structure defining the gradient pressure */
|
|
|
|
void debuginput(long *seed,struct grid_mod *grid,string filename[8],struct vario_mod *variogram,struct statistic_mod *stat,struct pressure_mod *pression,int *Ksolver,int *genere, int *gwnwrite)
|
|
{
|
|
int i;
|
|
|
|
|
|
/* debug du 8/7/2002 */
|
|
printf("\n\n");
|
|
|
|
printf("Starting seed (integer): %d\n",(*seed));
|
|
printf("Number of cells along the X axis: %d\n",(*grid).NX);
|
|
printf("Number of cells along the Y axis: %d\n",(*grid).NY);
|
|
printf("Number of cells along the Z axis: %d\n",(*grid).NZ);
|
|
printf("cell length along the X axis: %6.4f\n",(*grid).DX);
|
|
printf("cell length along the Y axis: %6.4f\n",(*grid).DY);
|
|
printf("cell length along the Z axis: %6.4f\n",(*grid).DZ);
|
|
printf("Number of structures for the variogram: %d\n",(*variogram).Nvario);
|
|
i=0;
|
|
printf("Weight: %6.4f\n",(*variogram).var[i]);
|
|
printf("Type of variogram: %d\n",(*variogram).vario[i]);
|
|
printf("Exponent: %6.4f\n",(*variogram).alpha[i]);
|
|
|
|
printf("Mean of the output realization: %15.8f\n",(*stat).mean[0]);
|
|
printf("Variance of the output realization: %6.4f\n",(*stat).variance[0]);
|
|
printf("Structure of the field (0-normal case 1-lognormal case 2-log10 case) : %d\n",(*stat).type);
|
|
|
|
/*output files*/
|
|
printf("output filename for permeability realization: %s\n", filename[1]);
|
|
printf("\n\n");
|
|
if (*gwnwrite == 0)
|
|
{
|
|
printf("K field generation with Gaussian white noise!\n");
|
|
printf("output filename for Gaussian white noise: %s\n",filename[0]);
|
|
}
|
|
printf("\n\n");
|
|
if ((*Ksolver == 1) | (*Ksolver == 2))
|
|
{
|
|
printf("P field generation: %d/n",*Ksolver);
|
|
printf("output filename for pressure realization: %s\n", filename[2]);
|
|
printf("output filename for pressure total realization: %s\n", filename[3]);
|
|
printf("output filename for x-velocity realization: %s\n", filename[4]);
|
|
printf("output filename for y-velocity realization: %s\n", filename[5]);
|
|
printf("output filename for z-velocity realization: %s\n", filename[6]);
|
|
printf("output filename for pressure gradient realization: %s\n", filename[7]);
|
|
|
|
/*Pressure data*/
|
|
printf("Pressure gradient in x direction: %6.4f\n",(*pression).x);
|
|
printf("Pressure gradient in y direction: %6.4f\n",(*pression).y);
|
|
printf("Pressure gradient in z direction: %6.4f\n",(*pression).z);
|
|
}
|
|
printf("\n\n");
|
|
|
|
return;
|
|
}
|