Merge branch 'master' of github.com:danieljprice/phantom into omp-rad…

…iation
danieljprice · Jun 29, 2023 · 556a7bd · 556a7bd
2 parents 117f020 + d9393a1
commit 556a7bd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/setup/set_star.f90 b/src/setup/set_star.f90
@@ -697,7 +697,7 @@ subroutine read_options_star(star,need_iso,ieos,polyk,db,nerr,label)
     else
        star%isinkcore = .true.
        call read_inopt(star%input_profile,'input_profile'//trim(c),db,errcount=nerr)
-       call read_inopt(star%outputfilename,'outputfilename//trim(c)',db,errcount=nerr)
+       call read_inopt(star%outputfilename,'outputfilename'//trim(c),db,errcount=nerr)
        if (star%isoftcore==1) call read_inopt(star%isofteningopt,'isofteningopt'//trim(c),&
                                               db,errcount=nerr,min=0)
        if ((star%isofteningopt==1) .or. (star%isofteningopt==3)) then

diff --git a/src/utils/moddump_sink.f90 b/src/utils/moddump_sink.f90
@@ -77,7 +77,7 @@ subroutine modify_dump(npart,npartoftype,massoftype,xyzh,vxyzu)
     xyzmh_ptmass(1,isinkpart) = newx
     print*,'x-coordinate changed to ',xyzmh_ptmass(1,isinkpart)
 
-    Lnuc = xyzmh_ptmass(1,ilum)
+    Lnuc = xyzmh_ptmass(ilum,isinkpart)
     Lnuc_cgs = Lnuc * unit_energ / utime
     call prompt('Enter new sink heating luminosity in erg/s:',Lnuc_cgs,0.)
     xyzmh_ptmass(ilum,isinkpart) = Lnuc_cgs / unit_energ * utime