From dee9a62edf44caeafb85582bcb5aa925b1e495e9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Franck=20P=C3=A9rignon?= <franck.perignon@imag.fr>
Date: Wed, 13 Jul 2011 11:36:16 +0000
Subject: [PATCH] Parmes
---
HySoP/src/main/FieldsComputation.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/HySoP/src/main/FieldsComputation.f90 b/HySoP/src/main/FieldsComputation.f90
index a4234bb7d..1803b5bbd 100755
--- a/HySoP/src/main/FieldsComputation.f90
+++ b/HySoP/src/main/FieldsComputation.f90
@@ -50,9 +50,9 @@ contains
call computeFlowRate(vel, stepSize, topo,computed_flowrate)
! Correction is added to velocity ...
constant = (boundary_layer_max(3)-boundary_layer_min(3))/lengths(3) !(theoretical_flowrate - computed_flowrate)/surf
- print *, 'const', constant
+! print *, 'const', constant
- print *, computed_flowrate, '//',surf
+ ! print *, computed_flowrate, '//',surf
vel(1,:,:,:,1) = vel(1,:,:,:,1) + constant
--
GitLab