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