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

removing the vorotomo option since it is not stable

Browse Source
This commit is contained in:
Hongjian Fang 2021-11-11 18:20:40 +08:00
parent f35c3d77da
commit 3d66dbdd0f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/main.f90
View File

@ -212,7 +212,8 @@ program SurfTomo
read(10,*)noiselevel read(10,*)noiselevel
read(10,*) threshold0 read(10,*) threshold0
read(10,*) vorotomo,ncells,nrealizations!,hvratio !read(10,*) vorotomo,ncells,nrealizations!,hvratio
vorotomo = 0
close(10) close(10)
nrc=nsrc nrc=nsrc
kmax=kmaxRc+kmaxRg+kmaxLc+kmaxLg kmax=kmaxRc+kmaxRg+kmaxLc+kmaxLg
@ -512,10 +513,10 @@ program SurfTomo
leniw = 2*nar+1 leniw = 2*nar+1
lenrw = nar lenrw = nar
dv = 0 dv = 0
!atol = 1e-4 atol = 1e-6
!btol = 1e-4 btol = 1e-6
atol = 1e-3/((dvxd+dvzd)*111.19/2.0*0.1) !1e-2 !atol = 1e-3/((dvxd+dvzd)*111.19/2.0*0.1) !1e-2
btol = 1e-3/(dvxd*nx*111.19/3.0)!1e-3 !btol = 1e-3/(dvxd*nx*111.19/3.0)!1e-3
conlim = 100 conlim = 100
itnlim = 400 itnlim = 400
istop = 0 istop = 0