From 71d360f9dc612a43d00704eb7d6b42324d979bcc Mon Sep 17 00:00:00 2001 From: tth Date: Thu, 10 Feb 2022 19:38:44 +0100 Subject: [PATCH] minor tweaks, ok --- BloubWorld/bloubspace.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/BloubWorld/bloubspace.f90 b/BloubWorld/bloubspace.f90 index 8eb72e0..b969ce0 100644 --- a/BloubWorld/bloubspace.f90 +++ b/BloubWorld/bloubspace.f90 @@ -27,9 +27,9 @@ module bloubspace blb%py = rand() * 0.50 blb%pz = 2.0 * (rand() - 0.50) - blb%vx = (rand() - 0.5) / 3.000 - blb%vy = (rand() - 0.5) / 3.000 - blb%vz = (rand() - 0.5) / 3.000 + blb%vx = (rand() - 0.5) / 2.500 + blb%vy = (rand() - 0.5) / 4.000 + blb%vz = (rand() - 0.5) / 2.500 blb%alive = .TRUE. @@ -109,7 +109,7 @@ module bloubspace ! ---------------------------------------------------------------- subroutine green_soylent (blb) type(t_bloubs), intent (inout) :: blb - if (blb%seq .gt. 5) then + if (blb%seq .gt. 6) then blb%alive = .FALSE. endif end subroutine