diff options
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 index 1924f30c6..5c5d4cb87 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_weno.F90 @@ -27,15 +27,6 @@ !!$ prolongate_3d_real8_weno.F77 -#define CHKIDX(i,j,k, imax,jmax,kmax, where) \ -if ((i).lt.1 .or. (i).gt.(imax) \ - .or. (j).lt.1 .or. (j).gt.(jmax) \ - .or. (k).lt.1 .or. (k).gt.(kmax)) then &&\ - write (msg, '(a, " array index out of bounds: shape is (",i4,",",i4,",",i4,"), index is (",i4,",",i4,",",i4,")")') \ - (where), (imax), (jmax), (kmax), (i), (j), (k) &&\ - call CCTK_WARN (0, msg(1:len_trim(msg))) &&\ -end if - function weno1d(q) implicit none |