diff options
Diffstat (limited to 'Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code')
| -rw-r--r-- | Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code b/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code index c239ee0..0b78570 100644 --- a/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code +++ b/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code @@ -19,25 +19,25 @@ CAKERNEL_initial_gaussian_Begin /* Include user-supplied include files */ /* Initialise finite differencing variables */ - CCTK_REAL const dx = params.cagh_dx; - CCTK_REAL const dy = params.cagh_dy; - CCTK_REAL const dz = params.cagh_dz; - CCTK_REAL const dt = params.cagh_dt; - CCTK_REAL const t = params.cagh_time; - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; + CCTK_REAL /*const*/ dx CCTK_ATTRIBUTE_UNUSED = params.cagh_dx; + CCTK_REAL /*const*/ dy CCTK_ATTRIBUTE_UNUSED = params.cagh_dy; + CCTK_REAL /*const*/ dz CCTK_ATTRIBUTE_UNUSED = params.cagh_dz; + CCTK_REAL /*const*/ dt CCTK_ATTRIBUTE_UNUSED = params.cagh_dt; + CCTK_REAL /*const*/ t CCTK_ATTRIBUTE_UNUSED = params.cagh_time; + CCTK_REAL /*const*/ dxi CCTK_ATTRIBUTE_UNUSED = INV(dx); + CCTK_REAL /*const*/ dyi CCTK_ATTRIBUTE_UNUSED = INV(dy); + CCTK_REAL /*const*/ dzi CCTK_ATTRIBUTE_UNUSED = INV(dz); + CCTK_REAL /*const*/ khalf CCTK_ATTRIBUTE_UNUSED = 0.5; + CCTK_REAL /*const*/ kthird CCTK_ATTRIBUTE_UNUSED = 1/3.0; + CCTK_REAL /*const*/ ktwothird CCTK_ATTRIBUTE_UNUSED = 2.0/3.0; + CCTK_REAL /*const*/ kfourthird CCTK_ATTRIBUTE_UNUSED = 4.0/3.0; + CCTK_REAL /*const*/ keightthird CCTK_ATTRIBUTE_UNUSED = 8.0/3.0; + CCTK_REAL /*const*/ hdxi CCTK_ATTRIBUTE_UNUSED = 0.5 * dxi; + CCTK_REAL /*const*/ hdyi CCTK_ATTRIBUTE_UNUSED = 0.5 * dyi; + CCTK_REAL /*const*/ hdzi CCTK_ATTRIBUTE_UNUSED = 0.5 * dzi; /* Initialize predefined quantities */ - CCTK_REAL const p1odx = INV(dx); + CCTK_REAL /*const*/ p1odx CCTK_ATTRIBUTE_UNUSED = INV(dx); /* Assign local copies of arrays functions */ @@ -50,7 +50,7 @@ CAKERNEL_initial_gaussian_Begin /* Assign local copies of grid functions */ - CCTK_REAL xL = I3D(x,0,0,0); + CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = I3D(x,0,0,0); /* Include user supplied include files */ @@ -58,7 +58,7 @@ CAKERNEL_initial_gaussian_Begin /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = exp(-100.*SQR(xL + t)); + CCTK_REAL CCTK_ATTRIBUTE_UNUSED phiL = exp(-100.*SQR(xL + t)); /* Copy local copies back to grid functions */ I3D(phi,0,0,0) = phiL; |