gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INTEGRALS: Clean up unused variables.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-08-14 22:10:00 -03:00
parent fa54865442
commit 9ccce03abd
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sources/integrals.F90
View File

@ -367,8 +367,14 @@ module integrals
use blocks , only : block_meta, block_data, list_data use blocks , only : block_meta, block_data, list_data
use coordinates , only : ni => ncells use coordinates , only : ni => ncells
use coordinates , only : nb, nbl, nbu, ne, nel, neu use coordinates , only : nb, nbl, nbu, ne, nel, neu
use coordinates , only : adx, ady, adz, advol, voli, periodic use coordinates , only : adx, ady, adz, advol, voli
use coordinates , only : ymin, ymax, zmin, zmax, yarea, zarea #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 : idn, ipr, ivx, ivy, ivz, ibx, iby, ibz, ibp
use equations , only : ien, imx, imy, imz use equations , only : ien, imx, imy, imz
use equations , only : magnetized, gamma, csnd use equations , only : magnetized, gamma, csnd
@ -386,7 +392,10 @@ module integrals
! local variables ! 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 real(kind=8), dimension(3) :: dh
! local pointers ! local pointers