From 975d78325169498076fd61044b04688ec17c8037 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 14 Mar 2022 19:35:11 +0100
Subject: [PATCH] Juan 14/03/2022:tensor/discretisation.f90,comment print
---
.../tensorproductmultigrid_Source/discretisation.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
index 6ea00fada..6cd5f4d22 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) )
--
GitLab