diff options
author | schnetter <> | 2004-01-09 12:21:00 +0000 |
---|---|---|
committer | schnetter <> | 2004-01-09 12:21:00 +0000 |
commit | fdabf8e0b555306b25527e4d685e315c2ef80784 (patch) | |
tree | dbcd4b71e3df8c7f3b7353f583f7628fe3c2c8ae /Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 | |
parent | 0f1abbf0a0a976a359eb3c1eaf4c8061a6fdfbb6 (diff) |
Clarify error message.
darcs-hash:20040109122120-07bb3-ec22ca801d35b1de50585080dd2ab0e8d31da4d5.gz
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77')
-rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 index 89e2c1be8..4b0e00bd5 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77,v 1.4 2003/10/30 13:53:56 cott Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77,v 1.5 2004/01/09 13:21:20 schnetter Exp $ #include "cctk.h" @@ -177,7 +177,7 @@ c Quadratic (second order) interpolation call CCTK_WARN (0, "Internal error: arrays have same time") end if if (t.lt.min(t1,t2,t3)-eps .or. t.gt.max(t1,t2,t3)+eps) then - call CCTK_WARN (0, "Internal error: extrapolation") + call CCTK_WARN (0, "Internal error: extrapolation in time") end if s1fac = (t - t2) * (t - t3) / ((t1 - t2) * (t1 - t3)) |