gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GRAVITY: Make gravitational acceleration static for now.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2017-03-06 11:09:49 -03:00
parent d5433025af
commit 28be951d3f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gravity.F90
View File

@ -230,14 +230,12 @@ module gravity
!
! Arguments:
!
! time - time at the moment of update;
! dt - time step since the last update;
! x, y, z - rectangular coordinates;
! gacc - vector of the gravitational acceleration;
!
!===============================================================================
!
subroutine gacc_none(time, dt, x, y, z, gacc)
subroutine gacc_none(x, y, z, gacc)
! local variables are not implicit by default
!
@ -245,7 +243,7 @@ module gravity
! subroutine arguments
!
real(kind=8) , intent(in) :: time, dt, x, y, z
real(kind=8) , intent(in) :: x, y, z
real(kind=8), dimension(3), intent(out) :: gacc
!
!-------------------------------------------------------------------------------