diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
index 6ea00fada95668bc83d8248df9715a0eeab6a1a1..6cd5f4d22ec998bcaa432083604988799758015c 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
@@ -253,14 +253,14 @@ contains
 
     if (  nt1d_discretisation_pointer_top > nt1d_discretisation_pointer_max ) then
        nt1d_discretisation_pointer_max =  nt1d_discretisation_pointer_top
-       print*,"zt1d_discretisation_allocate3d:: nt1d_discretisation_pointer_max=",nt1d_discretisation_pointer_max
-       call flush(6)
+!!$       print*,"zt1d_discretisation_allocate3d:: nt1d_discretisation_pointer_max=",nt1d_discretisation_pointer_max
+!!$       call flush(6)
     endif
     
     if (  nt1d_discretisation_top > nt1d_discretisation_max ) then
        nt1d_discretisation_max =  nt1d_discretisation_top
-       print*,"zt1d_discretisation_allocate3d:: nt1d_discretisation_max=",nt1d_discretisation_max
-       call flush(6)
+!!$       print*,"zt1d_discretisation_allocate3d:: nt1d_discretisation_max=",nt1d_discretisation_max
+!!$       call flush(6)
     endif
             
   end function zt1d_discretisation_allocate3d
@@ -1472,7 +1472,7 @@ end subroutine construct_vertical_coeff
           !$acc enter data create(Tjacobi(level)%u0)
        end if
        if (LUseT) then
-          print*,"allocate(ut0),nib,nie,njb,nje,nkb,nke,level",nib,nie,njb,nje,nkb,nke, level
+!!$          print*,"allocate(ut0),nib,nie,njb,nje,nkb,nke,level",nib,nie,njb,nje,nkb,nke, level
 !!$          allocate(Tjacobi(level)%ut0(1-halo_size:nlocal+halo_size,   &
 !!$               1-halo_size:nlocal+halo_size,   &
 !!$               0:u%grid_param%nz+1) )