zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-05-07 15:41:14 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

output intermediate model with iteration number

Browse Source 
also remove model variation estimation
This commit is contained in:
Hongjian Fang 2017-07-04 02:49:02 +08:00
parent 39f5930411
commit 40f6ed622c
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/DSurfTomo
View File

Binary file not shown.

22
src/main.f90
View File

@ -106,9 +106,9 @@ program SurfTomo
integer idx integer idx
integer counte integer counte
real stdvs real stdvs
integer numrand ! integer numrand
real,allocatable,dimension(:,:)::modstat ! real,allocatable,dimension(:,:)::modstat
real,allocatable,dimension(:)::modsig ! real,allocatable,dimension(:)::modsig
real gaussian real gaussian
external gaussian external gaussian
integer modest integer modest
@ -303,8 +303,8 @@ program SurfTomo
allocate(vsftrue(nx,ny,nz), stat=checkstat) allocate(vsftrue(nx,ny,nz), stat=checkstat)
! FOR MODEL VARIATION ! FOR MODEL VARIATION
!------------------------------------------------ !------------------------------------------------
allocate(modstat(numrand,maxvp)) ! allocate(modstat(numrand,maxvp))
allocate(modsig(maxvp)) ! allocate(modsig(maxvp))
allocate(rw(maxnar), stat=checkstat) allocate(rw(maxnar), stat=checkstat)
if(checkstat > 0)then if(checkstat > 0)then
@ -556,6 +556,18 @@ program SurfTomo
enddo enddo
enddo enddo
write(outmodel,'(a,a,i3.3)') trim(inputfile),'Measure.dat.iter',iter
open(64,file=outmodel)
do k=1,nz-1
do j=1,ny-2
do i=1,nx-2
write(64,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
enddo
enddo
enddo
close(64)
enddo !end iteration enddo !end iteration
! OUTPUT THE VELOCITY MODEL ! OUTPUT THE VELOCITY MODEL