Updated micromodel example

This commit is contained in:
James E McClure
2017-11-17 10:52:23 -05:00
parent 1d12e24381
commit 9fbddc1d8d
3 changed files with 14 additions and 4 deletions

View File

@@ -10,6 +10,7 @@ INSTALL_EXAMPLE( imbibition )
INSTALL_EXAMPLE( relperm )
INSTALL_EXAMPLE( Poiseuille )
INSTALL_EXAMPLE( Juanes )
INSTALL_EXAMPLE( Micromodel )
# Create unit tests for each example

View File

@@ -1,4 +1,4 @@
8 8 1
50 50 50
1 1 1
10 400 400
144
500.0 500.0 20.0
20.0 500.0 500.0

View File

@@ -224,8 +224,10 @@ int main(int argc, char **argv)
MPI_Barrier(comm);
Nx += 2;
Ny += 2;
Nz += 2;
Nx = Ny = Nz; // Cubic domain
//Nx = Ny = Nz; // Cubic domain
int N = Nx*Ny*Nz;
int dist_mem_size = N*sizeof(double);
@@ -372,6 +374,13 @@ int main(int argc, char **argv)
id[(Nz-1)*Nx*Ny] = id[(Nz-1)*Nx*Ny+Nx-1] = id[(Nz-1)*Nx*Ny+(Ny-1)*Nx] = id[(Nz-1)*Nx*Ny+(Ny-1)*Nx + Nx-1] = 0;
//.........................................................
sprintf(LocalRankFilename,"ID.%05i",rank);
FILE *ID = fopen(LocalRankFilename,"wb");
fwrite(id,1,N,ID);
fclose(ID);
//.......................................................................
sprintf(LocalRankString,"%05d",rank);
sprintf(LocalRankFilename,"%s%s","SignDist.",LocalRankString);