allocate: to be finished and tested

common/src/halos_array_m.F90

@@ -90,10 +90,15 @@ contains
   !> @param[in] last_halo_index : index of the last halo in this array
   subroutine Allocate_halos_array(this, first_halo_index, last_halo_index)
 
+    use error_codes_m, only : ALLOCATE_ERROR_CODE
+    use error_handling_m, only : ERR_MSG_LEN, Allocate_error
+
     class(halos_array_t), intent(out) :: this
-    integer(INT32), intent(in) :: haloes_number
+    integer(INT32), intent(in) :: first_halo_index
+    integer(INT32), intent(in) :: last_halo_index
 
     integer :: alloc_stat
+    character(ERR_MSG_LEN) :: error_message
     
 
 #ifdef DEBUG