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

DOMAINS: Clean up unused variables.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-08-06 13:12:23 -03:00
parent 1550ce27a9
commit 7c47fb1637
2 changed files with 8 additions and 9 deletions

15
sources/domains.F90

@ -75,12 +75,11 @@ module domains
! Arguments:
!
! problem - the problem name
! verbose - a logical flag turning the information printing;
! status - the subroutine call status: 0 for success, otherwise failure;
!
!===============================================================================
!
subroutine initialize_domains(problem, verbose, status)
subroutine initialize_domains(problem, status)
! include external procedures and variables
!
@ -93,7 +92,6 @@ module domains
! subroutine arguments
!
character(len=64), intent(in) :: problem
logical , intent(in) :: verbose
integer , intent(out) :: status
!
!-------------------------------------------------------------------------------
@ -178,7 +176,6 @@ module domains
use blocks , only : metablock_set_leaf, metablock_set_level
use blocks , only : metablock_set_configuration
use blocks , only : metablock_set_coordinates, metablock_set_bounds
use blocks , only : nsides
use coordinates , only : xmin, ymin, zmin, xlen, ylen, zlen
use coordinates , only : ddims => domain_base_dims
use coordinates , only : periodic
@ -203,14 +200,16 @@ module domains
! local pointers
!
type(block_meta), pointer :: pmeta, pnext
type(block_meta), pointer :: pmeta
! allocatable arrays
!
integer, dimension(:,:,:), allocatable :: cfg
integer, dimension(:) , allocatable :: im, jm, km
integer, dimension(:) , allocatable :: ip, jp, kp
integer, dimension(:) , allocatable :: im, ip
integer, dimension(:) , allocatable :: jm, jp
#if NDIMS == 3
integer, dimension(:) , allocatable :: km, kp
#endif /* NDIMS == 3 */
! local pointer array
!
type(pointer_meta), dimension(:,:,:), allocatable :: block_array

2
sources/driver.F90

@ -417,7 +417,7 @@ program amun
end if
go to 2900
end if
call initialize_domains(problem, master, status)
call initialize_domains(problem, status)
if (check_status(status /= 0)) then
if (master) then
write(error_unit,"('[AMUN::program]: ', a)") &