zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-05-05 22:31:14 +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,*) threshold0
read(10,*) vorotomo,ncells,nrealizations!,hvratio
!read(10,*) vorotomo,ncells,nrealizations!,hvratio
vorotomo = 0
close(10)
nrc=nsrc
kmax=kmaxRc+kmaxRg+kmaxLc+kmaxLg
@ -512,10 +513,10 @@ program SurfTomo
leniw = 2*nar+1
lenrw = nar
dv = 0
!atol = 1e-4
!btol = 1e-4
atol = 1e-3/((dvxd+dvzd)*111.19/2.0*0.1) !1e-2
btol = 1e-3/(dvxd*nx*111.19/3.0)!1e-3
atol = 1e-6
btol = 1e-6
!atol = 1e-3/((dvxd+dvzd)*111.19/2.0*0.1) !1e-2
!btol = 1e-3/(dvxd*nx*111.19/3.0)!1e-3
conlim = 100
itnlim = 400
istop = 0