diff options
author | rhaas <rhaas@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2012-01-25 15:19:00 +0000 |
---|---|---|
committer | rhaas <rhaas@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2012-01-25 15:19:00 +0000 |
commit | cc396ab996df8be585ddb70c84c9b943002c99a5 (patch) | |
tree | a1993a6e071038f155cd6623a541723b2e0c4e01 /src/qlm_calculate.F90 | |
parent | ec2893918d69b8a3e5d9680a85fb540acfb49942 (diff) |
support named spherical surfaces
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@36 ef6f4158-a8ee-47d1-ba14-cb73256398e0
Diffstat (limited to 'src/qlm_calculate.F90')
-rw-r--r-- | src/qlm_calculate.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/qlm_calculate.F90 b/src/qlm_calculate.F90 index e9b602d..44574c6 100644 --- a/src/qlm_calculate.F90 +++ b/src/qlm_calculate.F90 @@ -55,7 +55,7 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) end if if (hn > 0) then - if (surface_index(hn) == -1) then + if (surface_index(hn) == -1 .and. CCTK_EQUALS(surface_name(hn), "")) then qlm_calc_error(hn) = 1 qlm_have_valid_data(hn) = 0 qlm_have_killing_vector(hn) = 0 |