zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-12-20 10:31:06 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

small bug fixed

Browse Source 
remove model estimation
This commit is contained in:
Hongjian Fang
2017-07-02 14:20:24 +08:00
parent 79282acedf
commit db87c3c9d8
5 changed files with 68 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/CalSurfG.f90
View File

@@ -1145,7 +1145,8 @@ subroutine CalSurfG(nx,ny,nz,nparpi,vels,iw,rw,col,dsurf, &
do ig = 1,igroup
if (ig ==2 .and. wavetype(srcnum,knumi) == 2) then
velf(1:nx*ny) = pvRc(1:nx*ny,periods(srcnum,knumi))
else
endif
if (ig ==2 .and. wavetype(srcnum,knumi) == 1) then
velf(1:nx*ny) = pvLc(1:nx*ny,periods(srcnum,knumi))
endif
call gridder(velf)