DOMAINS: Clean up unused variables.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>

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

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)")                             &