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

EQUATIONS: 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:28:28 -03:00
parent 17395086fb
commit 8f33e4aeb5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
sources/equations.F90
View File

@ -1564,7 +1564,10 @@ module equations
integer :: n, p, nc, np
integer :: i = 1, il = 1, iu = 1
integer :: j = 1, jl = 1, ju = 1
integer :: k = 1, kl = 1, ku = 1
integer :: k = 1
#if NDIMS == 3
integer :: kl = 1, ku = 1
#endif /* NDIMS == 3 */
! temporary arrays
!