From 28eedae3e31855ef8b442331b659585a22d0db9c Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Tue, 30 Jun 2009 11:32:24 +0000
Subject: [PATCH] comment calls to slices
---
DOUAR.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/DOUAR.f90 b/DOUAR.f90
index 7b335de6..f28dcbf8 100644
--- a/DOUAR.f90
+++ b/DOUAR.f90
@@ -729,7 +729,7 @@ do while (istep.le.params%nstep)
call show_time (total,step,inc,1,'write global output$')
call write_global_output(params,istep,iter,current_time,osolve,ov,vo,surface,cl,'debug')
call mpi_barrier (mpi_comm_world,ierr)
- call slices (params,osolve,ov,vo,sections,istep,iter,iter_nl)
+! call slices (params,osolve,ov,vo,sections,istep,iter,iter_nl)
end if
!--------------------------------------------------------------------------------------
@@ -768,7 +768,7 @@ do while (istep.le.params%nstep)
!--------------------------------------------------------------------------------------
call show_time (total,step,inc,1,'slicing the cube$')
- call slices(params,osolve,ov,vo,sections,istep,iter,iter_nl)
+! call slices(params,osolve,ov,vo,sections,istep,iter,iter_nl)
call heap (threadinfo,'osolve%eviscosity','main',size(osolve%eviscosity),'dp',-1) ; deallocate (osolve%eviscosity)
call heap (threadinfo,'osolve%q','main',size(osolve%q),'dp',-1) ; deallocate (osolve%q)
--
GitLab