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

2
sources/driver.F90

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