Commits

John Wise committed e00800f

Removing extra 1/dom factor in MetalCooling = 1 (tabulated from Glover
& Jappsen 2007). All the credit goes to Ji-hoon Kim.

  • Participants
  • Parent commits 75fe3d2

Comments (0)

Files changed (1)

src/enzo/cool1d_multi.F

 
                xi = min(3.d0, metal(i,j,k)/(d(i,j,k)*z_solar))
                edot(i) = edot(i) - metalc(i) * d(i,j,k) * d(i,j,k) * 
-     $              (xi/JHW_METALS_NORMZ) / dom
+     $              (xi/JHW_METALS_NORMZ)
 #ifdef UNUSED
                if (xi .gt. 1d-4 .and. tgas(i) .lt. 1e4) then
                   write(6,'(a,3i5,2e12.4)') 'a0', i,j,k, exp(log_xe),