tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor tweaks, ok

Browse Source
This commit is contained in:
tth 2022-02-10 19:38:44 +01:00
parent a3fa600a4d
commit 71d360f9dc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
BloubWorld/bloubspace.f90
View File

@ -27,9 +27,9 @@ module bloubspace
blb%py = rand() * 0.50 blb%py = rand() * 0.50
blb%pz = 2.0 * (rand() - 0.50) blb%pz = 2.0 * (rand() - 0.50)
blb%vx = (rand() - 0.5) / 3.000 blb%vx = (rand() - 0.5) / 2.500
blb%vy = (rand() - 0.5) / 3.000 blb%vy = (rand() - 0.5) / 4.000
blb%vz = (rand() - 0.5) / 3.000 blb%vz = (rand() - 0.5) / 2.500
blb%alive = .TRUE. blb%alive = .TRUE.
@ -109,7 +109,7 @@ module bloubspace
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
subroutine green_soylent (blb) subroutine green_soylent (blb)
type(t_bloubs), intent (inout) :: blb type(t_bloubs), intent (inout) :: blb
if (blb%seq .gt. 5) then if (blb%seq .gt. 6) then
blb%alive = .FALSE. blb%alive = .FALSE.
endif endif
end subroutine end subroutine