no milesatone reached...

2022-02-17 14:10:15 +01:00
parent bc54e20011
commit cfc8ea6b63
7 changed files with 37 additions and 20 deletions
--- a/BloubWorld/bloubspace.f90
+++ b/BloubWorld/bloubspace.f90
@@ -88,10 +88,10 @@ module bloubspace
      blb%py = 0.0
      blb%age = blb%age + 1
    endif
-    if (5.0 .lt. blb%py) then
+    if (4.99 .lt. blb%py) then              !!
      blb%vy = -1.0 * blb%vy
      blb%age = blb%age + 1
-      blb%py = 5.0
+      blb%py = 4.99                         !!
    endif

    if (5.0 .lt. blb%pz) then