diff options
Diffstat (limited to 'src/EHFinder_mod.F90')
| -rw-r--r-- | src/EHFinder_mod.F90 | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/src/EHFinder_mod.F90 b/src/EHFinder_mod.F90 index 9c731a0..3fe10a5 100644 --- a/src/EHFinder_mod.F90 +++ b/src/EHFinder_mod.F90 @@ -6,33 +6,21 @@ module EHFinder_mod use EHFinder_Constants - CCTK_INT, dimension(0:5), parameter :: ix = (/ -1, 1, 0, 0, 0, 0 /) - CCTK_INT, dimension(0:5), parameter :: jy = (/ 0, 0, -1, 1, 0, 0 /) - CCTK_INT, dimension(0:5), parameter :: kz = (/ 0, 0, 0, 0, -1, 1 /) CCTK_INT, dimension(0:5), parameter :: ll = (/ 1, 2, 4, 8, 16, 32 /) CCTK_INT :: ixl, ixr, jyl, jyr, kzl, kzr -! CCTK_INT, parameter :: ixl = 1 -! CCTK_INT, parameter :: ixr = 2 -! CCTK_INT, parameter :: iyl = 4 -! CCTK_INT, parameter :: iyr = 8 -! CCTK_INT, parameter :: izl = 16 -! CCTK_INT, parameter :: izr = 32 CCTK_REAL :: hfac - CCTK_INT :: nx, ny, nz, ngx, ngy, ngz, ierr + CCTK_INT :: nx, ny, nz, ngx, ngy, ngz CCTK_INT :: max_handle, min_handle, sum_handle - CCTK_INT :: ncalls, rep_count, rep_total + CCTK_INT :: ncalls, ierr CCTK_REAL :: delta - CCTK_REAL :: h, hlocal + CCTK_REAL :: h CCTK_REAL :: ex_value - CCTK_REAL :: rdel = 0.8d0 - CCTK_REAL :: fmin_bound CCTK_INT, dimension(3) :: imin_glob, imax_glob CCTK_REAL, dimension(3) :: fimin_glob, fimax_glob - CCTK_INT :: current_iteration CCTK_INT :: githeta, gjphi logical :: mask_first = .true. logical :: symx, symy, symz logical :: s_symx, s_symy, s_symz - logical, dimension(:), allocatable :: reparam_this_level_set, & + logical, dimension(:), allocatable :: re_init_this_level_set, & re_initialize_undone end module EHFinder_mod |