Parmes

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