diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
index fa4092f543dd51821d2e73a8822d4ae0521c7c79..295e13e964ae225f357e279932b87f6a2b46379d 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
@@ -148,7 +148,7 @@ private
 
   real(kind=rl), pointer , contiguous , dimension(:) :: zt1d_discretisation
   INTEGER                                            :: zt1d_discretisation_size = 10000000
-  INTEGER , parameter                                :: zt1d_discretisation_size_factor = 2 * 4
+  INTEGER , parameter                                :: zt1d_discretisation_size_factor = 4 * 4
   INTEGER                                            :: nt1d_discretisation_top = 0 , nt1d_discretisation_max = 0
   
   INTEGER , ALLOCATABLE, DIMENSION (:)               :: nt1d_discretisation_pointer , nt1d_discretisation_pointer_ksize
@@ -182,6 +182,7 @@ public::DIRECTION_BACKWARD
 public::ORDERING_LEX
 public::ORDERING_RB
 public::zt1d_discretisation_init
+public::zt1d_discretisation_allocate3d
 
 contains
 
@@ -226,8 +227,8 @@ contains
     integer :: ksize, kbeg, kend
 
     if ( nt1d_discretisation_pointer_top == zt1d_discretisation_pointer_size ) then
-       print*,"ERROR zt1d_discretisation_init:: zt1d_discretisation_pointer_size to small=",zt1d_discretisation_pointer_size
-       print*,"ERROR zt1d_discretisation_init:: Augment it "
+       print*,"ERROR zt1d_discretisation_allocate3d:: zt1d_discretisation_pointer_size to small=",zt1d_discretisation_pointer_size
+       print*,"ERROR zt1d_discretisation_allocate3d:: Augment it "
        stop 
     end if