Skip to content

Commit

Permalink
(#40, relax_star) solve uninitialised variable problem with DEBUG=yes…
Browse files Browse the repository at this point in the history
… in relax_star
  • Loading branch information
danieljprice committed Jul 29, 2020
1 parent 9e41c94 commit f4459f6
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/setup/relax_star.f90
Original file line number Diff line number Diff line change
Expand Up @@ -66,6 +66,7 @@ subroutine relax_star(nt,rho,pr,r,npart,xyzh)
use eos, only:gamma
use physcon, only:pi
use options, only:iexternalforce
use io_summary, only:summary_initialise
integer, intent(in) :: nt
integer, intent(inout) :: npart
real, intent(in) :: rho(nt),pr(nt),r(nt)
Expand All @@ -85,6 +86,7 @@ subroutine relax_star(nt,rho,pr,r,npart,xyzh)
tdyn = 2.*pi*sqrt(rstar**3/(32.*mstar))
print*,'rstar = ',rstar,' mstar = ',mstar, ' tdyn = ',tdyn
call set_options_for_relaxation(tdyn)
call summary_initialise()
!
! check particle setup is sensible
!
Expand Down

0 comments on commit f4459f6

Please sign in to comment.