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

REFINEMENT: Remove unused variables for 2D case.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-08-15 01:27:08 -03:00
parent d05e3062fc
commit 17395086fb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/refinement.F90
View File

@ -502,8 +502,14 @@ module refinement
!
integer :: i, im1, ip1
integer :: j, jm1, jp1
integer :: k = 1, km1, kp1
real(kind=8) :: fl, fr, fc, fx, fy, fz
integer :: k = 1
#if NDIMS == 3
integer :: km1, kp1
#endif /* NDIMS == 3 */
real(kind=8) :: fl, fr, fc, fx, fy
#if NDIMS == 3
real(kind=8) :: fz
#endif /* NDIMS == 3 */
! local parameters
!