adaption of seismogram output options, output of adjoint sources only if VERBOSE=1

par/in_and_out/toy_example/toy_example_ac_INV.json

@@ -56,7 +56,7 @@
 			"k_max_PML" : "8.0",
 
 "Receiver" : "comment",
-			"SEISMO" : "5",
+			"SEISMO" : "2",
 			"READREC" : "1",
 			"REC_FILE" : "./receiver/rec_toy_example_ac.dat",
 			"REFRECX, REFRECY" : "0.0 , 0.0",

src/denise.c

@@ -2092,13 +2092,18 @@ int main(int argc, char **argv){
                                     itestshot+=TESTSHOT_INCR;
                                 }
                                 
-                                /* Write differences between measured and synthetic seismogramms to disk */
-                                if (SEISMO){
+                                /* Write differences between measured and synthetic seismogramms (adjoint sources) to disk */
+                                if (SEISMO&&VERBOSE){
                                     if(WAVETYPE==1 || WAVETYPE==3){
-                                        catseis(sectionvxdiff, fulldata_vx, recswitch, ntr_glob, MPI_COMM_NTR);
-                                        catseis(sectionvydiff, fulldata_vy, recswitch, ntr_glob, MPI_COMM_NTR);
-                                        if(ACOUSTIC)
+                                        if ((QUELLTYPB==1)|| (QUELLTYPB==3)){
+                                            catseis(sectionvxdiff, fulldata_vx, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
+                                        if ((QUELLTYPB==1)|| (QUELLTYPB==2)){
+                                            catseis(sectionvydiff, fulldata_vy, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
+                                        if (QUELLTYPB==4){
                                             catseis(sectionpdiff, fulldata_p, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
                                     }
                                     if(WAVETYPE==2 || WAVETYPE==3){
                                         catseis(sectionvzdiff, fulldata_vz, recswitch, ntr_glob, MPI_COMM_NTR);
@@ -2111,10 +2116,15 @@ int main(int argc, char **argv){
                                 /* Write measured filtered seismogramms to disk */
                                 if (SEISMO && TIME_FILT && WRITE_FILTERED_DATA){
                                     if(WAVETYPE==1 || WAVETYPE==3){
-                                        catseis(sectionvxdata, fulldata_vx, recswitch, ntr_glob, MPI_COMM_NTR);
-                                        catseis(sectionvydata, fulldata_vy, recswitch, ntr_glob, MPI_COMM_NTR);
-                                        if(ACOUSTIC)
+                                        if ((QUELLTYPB==1)|| (QUELLTYPB==3)){
+                                            catseis(sectionvxdata, fulldata_vx, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
+                                        if ((QUELLTYPB==1)|| (QUELLTYPB==2)){
+                                            catseis(sectionvydata, fulldata_vy, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
+                                        if (QUELLTYPB==4){
                                             catseis(sectionpdata, fulldata_p, recswitch, ntr_glob, MPI_COMM_NTR);
+                                        }
                                     }
                                     if(WAVETYPE==2 || WAVETYPE==3){
                                         catseis(sectionvzdata, fulldata_vz, recswitch, ntr_glob, MPI_COMM_NTR);