added writing out of taper files to VERBOSE mode

c4bdb2df · niklas.thiel · 8b45a38f · c4bdb2df
Commit c4bdb2df authored Apr 19, 2016 by niklas.thiel
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

src/taper_grad.c src/taper_grad.c +7 -5

No files found.
--- a/src/taper_grad.c
+++ b/src/taper_grad.c
@@ -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