Commit 321f1b87 authored by Florian Wittkamp's avatar Florian Wittkamp

BUGFIX: Renaming seismograms

parent 09fcd4b8
......@@ -978,7 +978,11 @@ int main(int argc, char **argv){
if (MYID==0){
time2=MPI_Wtime();
fprintf(FP,"\n\n\n ------------------------------------------------------------------\n");
fprintf(FP,"\n\n\n TDFWI ITERATION %d \t of %d \n",iter,ITERMAX);
if(INVMAT==0) {
fprintf(FP,"\n\n\n TDFWI ITERATION %d \t of %d \n",iter,ITERMAX);
} else {
fprintf(FP,"\n\n\n FD-SIMULATION \n");
}
fprintf(FP,"\n\n\n ------------------------------------------------------------------\n");
}
......
......@@ -82,9 +82,9 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
if(WAVETYPE==2 || WAVETYPE==3) {
sprintf(vzf,"%s_z.su.shot%d",SEIS_FILE,ishot);
}
sprintf(pf,"%s_p.shot%d",SEIS_FILE,ishot);
sprintf(divf,"%s_div.shot%d",SEIS_FILE,ishot);
sprintf(curlf,"%s_curl.shot%d",SEIS_FILE,ishot);
sprintf(pf,"%s_p.su.shot%d",SEIS_FILE,ishot);
sprintf(divf,"%s_div.su.shot%d",SEIS_FILE,ishot);
sprintf(curlf,"%s_curl.su.shot%d",SEIS_FILE,ishot);
}
switch (SEISMO){
......
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