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

bug fix

Browse Source 
ln kernel to regular kernel.
This commit is contained in:
Hongjian Fang 2016-05-09 09:58:14 +02:00
parent c5a14473df
commit 38a7518f84
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/CalSurfG.f90
View File

@ -88,8 +88,8 @@
vsm(i) = vsz(i) vsm(i) = vsz(i)
do nn = 1,kmaxRc do nn = 1,kmaxRc
cga = 0.5*(cg1(nn)+cg2(nn)) ! cga = 0.5*(cg1(nn)+cg2(nn))
dlncg_dlnvs(nn,i) = (cg2(nn)-cg1(nn))/cga/dlnVs dlncg_dlnvs(nn,i) = (cg2(nn)-cg1(nn))/(dlnVs*vsz(i))
enddo enddo
@ -107,8 +107,8 @@
vpm(i) = vpz(i) vpm(i) = vpz(i)
do nn = 1,kmaxRc do nn = 1,kmaxRc
cga = 0.5*(cg1(nn)+cg2(nn)) ! cga = 0.5*(cg1(nn)+cg2(nn))
dlncg_dlnvp(nn,i) = (cg2(nn)-cg1(nn))/cga/dlnVp dlncg_dlnvp(nn,i) = (cg2(nn)-cg1(nn))/(dlnVp*vpz(i))
enddo enddo
rhom(i) = rhoz(i) - 0.5*dlnrho*rhoz(i) rhom(i) = rhoz(i) - 0.5*dlnrho*rhoz(i)
call refineGrid2LayerMdl(minthk,mmax,depm,vpm,vsm,rhom,& call refineGrid2LayerMdl(minthk,mmax,depm,vpm,vsm,rhom,&
@ -124,8 +124,8 @@
rhom(i) = rhoz(i) rhom(i) = rhoz(i)
do nn = 1,kmaxRc do nn = 1,kmaxRc
cga = 0.5*(cg1(nn)+cg2(nn)) ! cga = 0.5*(cg1(nn)+cg2(nn))
dlncg_dlnrho(nn,i) = (cg2(nn)-cg1(nn))/cga/dlnrho dlncg_dlnrho(nn,i) = (cg2(nn)-cg1(nn))/(dlnrho*rhoz(i))
enddo enddo
enddo enddo
sen_vsRc((jj-1)*nx+ii,1:kmaxRc,1:mmax)=dlncg_dlnvs(1:kmaxRc,1:mmax) sen_vsRc((jj-1)*nx+ii,1:kmaxRc,1:mmax)=dlncg_dlnvs(1:kmaxRc,1:mmax)

BIN
src/DSurfTomo
View File

Binary file not shown.