diff options
| author | diener <diener@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2009-04-03 19:04:35 +0000 |
|---|---|---|
| committer | diener <diener@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2009-04-03 19:04:35 +0000 |
| commit | cf937846a7ad4420afdd18ff8b36a7debf61f97d (patch) | |
| tree | 5d5f144a06c27c85d9e18c3dcba541a1c2fbeb32 | |
| parent | 91077ebfa513df74a14372ad492c5bb0a4a0563a (diff) | |
Fix typo. Could cause problems with convergence in some cases, I guess.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/NoExcision/trunk@23 4ec1db94-0e4f-0410-ada3-8bed251432c9
| -rw-r--r-- | src/NoExcision_mod.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/NoExcision_mod.F90 b/src/NoExcision_mod.F90 index 81991a9..7cf0a5a 100644 --- a/src/NoExcision_mod.F90 +++ b/src/NoExcision_mod.F90 @@ -285,7 +285,7 @@ module NoExcision_mod if ( cont(10) ) then r10(i,j,k) = u10(i,j,k)*v10(i,j,k) lsumred(10) = lsumred(10) + weight(i,j,k)*r10(i,j,k) - if (do_inf_reduction) linfred(10) = max(linfred(01),r10(i,j,k)) + if (do_inf_reduction) linfred(10) = max(linfred(10),r10(i,j,k)) end if if ( cont(11) ) then |