diff options
| author | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-04-07 17:00:34 +0000 |
|---|---|---|
| committer | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-04-07 17:00:34 +0000 |
| commit | fd5a4312226842434f81a445910e3284b7a77b43 (patch) | |
| tree | a8ef55912cb63293d294f9b6df96ac155a28c1a4 /src/qlm_import_surface.F90 | |
| parent | b1d7f9d2ff5a68aac30dcb1666121c91f01fc15b (diff) | |
Correct nans
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@5 ef6f4158-a8ee-47d1-ba14-cb73256398e0
Diffstat (limited to 'src/qlm_import_surface.F90')
| -rw-r--r-- | src/qlm_import_surface.F90 | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/qlm_import_surface.F90 b/src/qlm_import_surface.F90 index 8eec453..d10b736 100644 --- a/src/qlm_import_surface.F90 +++ b/src/qlm_import_surface.F90 @@ -57,38 +57,6 @@ subroutine qlm_import_surface (CCTK_ARGUMENTS, hn) qlm_shape_p_p(:,:,hn) = qlm_shape_p(:,:,hn) qlm_shape_p (:,:,hn) = qlm_shape (:,:,hn) - - qlm_l0_p_p(:,:,hn) = qlm_l0_p(:,:,hn) - qlm_l0_p (:,:,hn) = qlm_l0 (:,:,hn) - qlm_l1_p_p(:,:,hn) = qlm_l1_p(:,:,hn) - qlm_l1_p (:,:,hn) = qlm_l1 (:,:,hn) - qlm_l2_p_p(:,:,hn) = qlm_l2_p(:,:,hn) - qlm_l2_p (:,:,hn) = qlm_l2 (:,:,hn) - qlm_l3_p_p(:,:,hn) = qlm_l3_p(:,:,hn) - qlm_l3_p (:,:,hn) = qlm_l3 (:,:,hn) - - qlm_n0_p_p(:,:,hn) = qlm_n0_p(:,:,hn) - qlm_n0_p (:,:,hn) = qlm_n0 (:,:,hn) - qlm_n1_p_p(:,:,hn) = qlm_n1_p(:,:,hn) - qlm_n1_p (:,:,hn) = qlm_n1 (:,:,hn) - qlm_n2_p_p(:,:,hn) = qlm_n2_p(:,:,hn) - qlm_n2_p (:,:,hn) = qlm_n2 (:,:,hn) - qlm_n3_p_p(:,:,hn) = qlm_n3_p(:,:,hn) - qlm_n3_p (:,:,hn) = qlm_n3 (:,:,hn) - - qlm_m0_p_p(:,:,hn) = qlm_m0_p(:,:,hn) - qlm_m0_p (:,:,hn) = qlm_m0 (:,:,hn) - qlm_m1_p_p(:,:,hn) = qlm_m1_p(:,:,hn) - qlm_m1_p (:,:,hn) = qlm_m1 (:,:,hn) - qlm_m2_p_p(:,:,hn) = qlm_m2_p(:,:,hn) - qlm_m2_p (:,:,hn) = qlm_m2 (:,:,hn) - qlm_m3_p_p(:,:,hn) = qlm_m3_p(:,:,hn) - qlm_m3_p (:,:,hn) = qlm_m3 (:,:,hn) - - qlm_xi_t_p_p(:,:,hn) = qlm_xi_t_p(:,:,hn) - qlm_xi_t_p (:,:,hn) = qlm_xi_t (:,:,hn) - qlm_xi_p_p_p(:,:,hn) = qlm_xi_p_p(:,:,hn) - qlm_xi_p_p (:,:,hn) = qlm_xi_p (:,:,hn) end if |