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

INTERPOLATIONS: Remove unused variables in 2D case.

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

31
sources/interpolations.F90
View File

@ -651,8 +651,14 @@ module interpolations
! local variables
!
logical :: flag
integer :: i, j, i1, j1, k1, i2, j2, k2
real(kind=max_prec) :: sig, fc, fx, fy, fz, xl, xr, yl, yr, zl, zr
integer :: i, j, i1, j1, i2, j2
#if NDIMS == 3
integer :: k1, k2
#endif /* NDIMS == 3 */
real(kind=max_prec) :: sig, fc, fx, fy, xl, xr, yl, yr
#if NDIMS == 3
real(kind=max_prec) :: fz, zl, zr
#endif /* NDIMS == 3 */
! local arrays for derivatives
!
@ -824,7 +830,10 @@ module interpolations
! local variables
!
integer :: i , j , k = 1
integer :: im1, jm1, km1, ip1, jp1, kp1
integer :: im1, jm1, ip1, jp1
#if NDIMS == 3
integer :: km1, kp1
#endif /* NDIMS == 3 */
! local vectors
!
@ -1067,10 +1076,13 @@ module interpolations
! local variables
!
logical :: flag
integer :: i , j , k = 1
integer :: il , jl , kl , iu , ju , ku
integer :: im1, jm1, km1, ip1, jp1, kp1
logical :: flag
integer :: i, il, iu, im1, ip1
integer :: j, jl, ju, jm1, jp1
integer :: k = 1
#if NDIMS == 3
integer :: kl, ku, km1, kp1
#endif /* NDIMS == 3 */
! local arrays for derivatives
!
@ -1259,7 +1271,10 @@ module interpolations
!
integer :: i, im1, ip1
integer :: j, jm1, jp1
integer :: k = 1, km1, kp1
integer :: k = 1
#if NDIMS == 3
integer :: km1, kp1
#endif /* NDIMS == 3 */
integer :: m
#if NDIMS == 3
integer :: n, np1, np2