removed bug: enable writing out vx, vy seismograms during forward modelling only again

src/saveseis_glob.c

@@ -143,17 +143,8 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
     }
     
     if(FORWARD_ONLY==1){
-        if(ADJOINT_TYPE==1) {
-            sprintf(vxf,"%s_vx.su.shot%d",SEIS_FILE,ishot);
-            sprintf(vyf,"%s_vy.su.shot%d",SEIS_FILE,ishot);
-        }
-        if(ADJOINT_TYPE==2){
-            sprintf(vyf,"%s_vy.su.shot%d",SEIS_FILE,ishot);
-        }
-        if(ADJOINT_TYPE==3){
-            sprintf(vxf,"%s_vx.su.shot%d",SEIS_FILE,ishot);
-        }
-
+        sprintf(vxf,"%s_vx.su.shot%d",SEIS_FILE,ishot);
+        sprintf(vyf,"%s_vy.su.shot%d",SEIS_FILE,ishot);
         if(WAVETYPE==2 || WAVETYPE==3) {
             sprintf(vzf,"%s_vz.su.shot%d",SEIS_FILE,ishot);
         }
@@ -165,7 +156,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
     switch (SEISMO){
         case 1 : /* particle velocities only */
             if (WAVETYPE==1 || WAVETYPE==3) {
-                if(ADJOINT_TYPE==1) {
+                if(ADJOINT_TYPE==1 || ADJOINT_TYPE==0) {
                     
                     if(VERBOSE==1) fprintf(fp," PE %d is writing %d seismograms (vx) to\n\t %s \n",0,ntr,vxf);
                     outseis_glob(fp,fopen(vxf,"w"),1,sectionvx,recpos,recpos_loc,ntr,srcpos,nsrc,ns,SEIS_FORMAT,ishot,1);
@@ -201,7 +192,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
             
         case 4 : /* everything */
             if (WAVETYPE==1 || WAVETYPE==3) {
-                if(ADJOINT_TYPE==1) {
+                if(ADJOINT_TYPE==1 || ADJOINT_TYPE==0) {
                     if(VERBOSE==1) fprintf(fp," PE %d is writing %d seismograms (vx) to\n\t %s \n",0,ntr,vxf);
                     outseis_glob(fp,fopen(vxf,"w"),1,sectionvx,recpos,recpos_loc,ntr,srcpos,nsrc,ns,SEIS_FORMAT,ishot,1);
                     if(VERBOSE==1) fprintf(fp," PE %d is writing %d seismograms (vy) to\n\t %s \n",0,ntr,vyf);
@@ -232,7 +223,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
             
         case 5 : /* everything except curl and div */
             if (WAVETYPE==1 || WAVETYPE==3) {
-                if(ADJOINT_TYPE==1) {
+                if(ADJOINT_TYPE==1 || ADJOINT_TYPE==0) {
                     if(VERBOSE==1) fprintf(fp," PE %d is writing %d seismograms (vx) to\n\t %s \n",0,ntr,vxf);
                     outseis_glob(fp,fopen(vxf,"w"),1,sectionvx,recpos,recpos_loc,ntr,srcpos,nsrc,ns,SEIS_FORMAT,ishot,1);
                     if(VERBOSE==1) fprintf(fp," PE %d is writing %d seismograms (vy) to\n\t %s \n",0,ntr,vyf);