test

seismobassoon · Sep 24, 2020 · e57a7dc · e57a7dc
1 parent 9ea97d3
commit e57a7dc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/main.f90 b/main.f90
@@ -276,6 +276,7 @@ program MarsInversion
                         tmparray(iWindowStart:iWindowEnd,3,mtcomp)=eastTemp(iWindowStart:iWindowEnd)
                     enddo
                 elseif(ZRTorZNE.eq."ZRT") then
+                    obsFiltTaperedRotated(0:npData,1) = obsFiltTapered(0:npData,1)
                     obsFiltTaperedRotated(0:npData,2) = &
                         -cqr(iConfPhi,iConfTheta)*obsFiltTapered(0:npData,2) &
                         -sqr(iConfPhi,iConfTheta)*obsFiltTapered(0:npData,3)
@@ -290,7 +291,7 @@ program MarsInversion
                 open(23,file="obsTtreated.txt",status='unknown')
                 do it=0,npData
                     write(21,*) dble(it)*dt,obsFiltTaperedRotated(it,1)
-                    write(22,*) dble(it)*dt,obsFiltTaperedRotated(it,2),"a"
+                    write(22,*) dble(it)*dt,obsFiltTaperedRotated(it,2)
                     write(23,*) dble(it)*dt,obsFiltTaperedRotated(it,3)
                 enddo
                 close(21)