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

un commit pour montrer aux gens

Browse Source
This commit is contained in:
tTh
2022-11-30 22:46:44 +01:00
parent c3c6caafb8
commit ba2c9f653c
4 changed files with 85 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GravityField/realfield.f90
View File

@@ -27,11 +27,12 @@ function compute_gravity(fx, fy, body)
rx = fx - body%posx
ry = fy - body%posy
dist = sqrt( (rx*rx) + (ry*ry) )
if (dist .LT. 4.50) then
write (0, *) "dist too small ", dist
if (dist .LT. 0.11) then
! write (0, *) "dist too small ", dist
compute_gravity = 0e0
else
compute_gravity = body%mass / (dist ** 2)
endif
compute_gravity = body%mass / (dist ** 2)
end function
@@ -63,7 +64,6 @@ subroutine compute_a_field(field, moon)
end subroutine
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
end module