Commits

Britton Smith committed 30cb5ff Merge

Merged in jwise77/clean-copy (pull request #59)

Comments (0)

Files changed (2)

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),

src/enzo/cool1d_sep.F

                metalc(i) = metalc(i) - metalc_cmb
 
                xi = min(3.d0, metal(i,j,k)/(d(i,j,k)*ZSOLAR))
-               edot(i,18) = -metalc(i) * d(i,j,k) * 
-     $              (xi/JHW_METALS_NORMZ) / dom
+               edot(i,18) = -metalc(i) * d(i,j,k) * d(i,j,k) *
+     $              (xi/JHW_METALS_NORMZ)
 #ifdef UNUSED
                if (xi .gt. 1e-06) then
                   write(6,777) i,j,k, exp(log_xe), exp(logtem(i)),