Fix copy-past error of Planck opacity integral.

lanl · Oct 7, 2024 · 762f030 · 762f030
1 parent 0b7ae1c
commit 762f030
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GAS/opacity_planckmean.f b/GAS/opacity_planckmean.f
@@ -34,7 +34,7 @@ subroutine opacity_planckmean
       if (in_doemiss) then
         do i=1,gas_ncell
            call specintv(1/gas_temp(i),grp_ng,specarr)
-           gas_capgrey(i) = sum(gas_cap(:,i)*specarr)
+           gas_em_capgrey(i) = sum(gas_em_cap(:,i)*specarr)
         enddo !i
       endif
 c