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

generating phase/group velocity maps

Browse Source 
extract velocity model of the last iteration form IterVel.out and save
it as MOD.true, change maxiter as 0 (line 12) and synthetic flag as 1
(line 19) in 'Surftomo.in', then rerun the code
This commit is contained in:
Hongjian Fang 2017-01-16 14:16:39 +08:00
parent 4f2f7cbce5
commit 6f924f3b72
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/CalSurfG.f90
View File

@ -2470,6 +2470,16 @@ subroutine refineGrid2LayerMdl(minthk0,mmax,dep,vp,vs,rho,&
igr=0 igr=0
call caldespersion(nx,ny,nz,vels,pvRc, & call caldespersion(nx,ny,nz,vels,pvRc, &
iwave,igr,kmaxRc,tRc,depz,minthk) iwave,igr,kmaxRc,tRc,depz,minthk)
open(62,file='velmap2dRc.dat')
do k = 1,kmaxRc
do j=1,ny-2
do i=1,nx-2
write(62,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,tRc(k),pvRc((j+1)*nx+i+1,k)
enddo
enddo
enddo
close(62)
endif endif
if(kmaxRg.gt.0) then if(kmaxRg.gt.0) then
@ -2477,6 +2487,15 @@ subroutine refineGrid2LayerMdl(minthk0,mmax,dep,vp,vs,rho,&
igr=1 igr=1
call caldespersion(nx,ny,nz,vels,pvRg, & call caldespersion(nx,ny,nz,vels,pvRg, &
iwave,igr,kmaxRg,tRg,depz,minthk) iwave,igr,kmaxRg,tRg,depz,minthk)
open(62,file='velmap2dRg.dat')
do k = 1,kmaxRg
do j=1,ny-2
do i=1,nx-2
write(62,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,tRg(k),pvRg((j+1)*nx+i+1,k)
enddo
enddo
enddo
close(62)
endif endif
if(kmaxLc.gt.0) then if(kmaxLc.gt.0) then
@ -2484,6 +2503,16 @@ subroutine refineGrid2LayerMdl(minthk0,mmax,dep,vp,vs,rho,&
igr=0 igr=0
call caldespersion(nx,ny,nz,vels,pvLc, & call caldespersion(nx,ny,nz,vels,pvLc, &
iwave,igr,kmaxLc,tLc,depz,minthk) iwave,igr,kmaxLc,tLc,depz,minthk)
open(62,file='velmap2dLc.dat')
do k = 1,kmaxLc
do j=1,ny-2
do i=1,nx-2
write(62,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,tLc(k),pvLc((j+1)*nx+i+1,k)
enddo
enddo
enddo
close(62)
endif endif
if(kmaxLg.gt.0) then if(kmaxLg.gt.0) then
@ -2491,8 +2520,19 @@ subroutine refineGrid2LayerMdl(minthk0,mmax,dep,vp,vs,rho,&
igr=1 igr=1
call caldespersion(nx,ny,nz,vels,pvLg, & call caldespersion(nx,ny,nz,vels,pvLg, &
iwave,igr,kmaxLg,tLg,depz,minthk) iwave,igr,kmaxLg,tLg,depz,minthk)
open(62,file='velmap2dLg.dat')
do k = 1,kmaxLg
do j=1,ny-2
do i=1,nx-2
write(62,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,tLg(k),pvLg((j+1)*nx+i+1,k)
enddo
enddo
enddo
close(62)
endif endif
!nar=0 !nar=0
count1=0 count1=0

BIN
src/DSurfTomo
View File

Binary file not shown.