diff --git a/sources/integrals.F90 b/sources/integrals.F90 index 251d817..6a7c4fe 100644 --- a/sources/integrals.F90 +++ b/sources/integrals.F90 @@ -367,8 +367,14 @@ module integrals use blocks , only : block_meta, block_data, list_data use coordinates , only : ni => ncells use coordinates , only : nb, nbl, nbu, ne, nel, neu - use coordinates , only : adx, ady, adz, advol, voli, periodic - use coordinates , only : ymin, ymax, zmin, zmax, yarea, zarea + use coordinates , only : adx, ady, adz, advol, voli +#if NDIMS == 3 + use coordinates , only : periodic +#endif /* NDIMS == 3 */ + use coordinates , only : ymin, ymax, yarea +#if NDIMS == 3 + use coordinates , only : zmin, zmax, zarea +#endif /* NDIMS == 3 */ use equations , only : idn, ipr, ivx, ivy, ivz, ibx, iby, ibz, ibp use equations , only : ien, imx, imy, imz use equations , only : magnetized, gamma, csnd @@ -386,7 +392,10 @@ module integrals ! local variables ! - real(kind=8) :: dvol, dvolh, dxy, dxz + real(kind=8) :: dvol, dvolh, dxz +#if NDIMS == 3 + real(kind=8) :: dxy +#endif /* NDIMS == 3 */ real(kind=8), dimension(3) :: dh ! local pointers