Commit c4bdb2df authored by niklas.thiel's avatar niklas.thiel

added writing out of taper files to VERBOSE mode

parent 8b45a38f
......@@ -504,11 +504,13 @@ void taper_grad(float ** waveconv,float ** taper_coeff, float **srcpos, int nsho
}
fclose(fp_taper);
sprintf(modfile,"taper_coeff_file.bin");
writemod(modfile,taper_coeff,3);
if(VERBOSE == 1) {
sprintf(modfile,"taper_coeff_file.bin");
writemod(modfile,taper_coeff,3);
MPI_Barrier(MPI_COMM_WORLD);
if (MYID==0) mergemod(modfile,3);
MPI_Barrier(MPI_COMM_WORLD);
if (MYID==0) mergemod(modfile,3);
}
}
}
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment