From 3d66dbdd0f4eeb152a65fae00653d8192010904a Mon Sep 17 00:00:00 2001 From: Hongjian Fang Date: Thu, 11 Nov 2021 18:20:40 +0800 Subject: [PATCH] removing the vorotomo option since it is not stable --- src/main.f90 | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/main.f90 b/src/main.f90 index c37a44f..9af755c 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -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