DOMAINS: Clean up unused variables.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
1550ce27a9
commit
7c47fb1637
sources
@ -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
|
||||
|
@ -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)") &
|
||||
|
Loading…
x
Reference in New Issue
Block a user