Commits

Anonymous committed b8f1c26

Fixed bug in passing dtotal value in SecondaryRTResJacMulti.

Comments (0)

Files changed (1)

src/pflotran/secondary_continuum.F90

     rt_auxvar%pri_molal = conc_upd(:,i)
     call RTotal(rt_auxvar,global_aux_var,reaction,option)
     total_upd(:,i) = rt_auxvar%total(:,1)
-    dtotal(:,:,i) = sec_transport_vars%sec_rt_auxvar(i)%aqueous%dtotal(:,:,1)
+    dtotal(:,:,i) = rt_auxvar%aqueous%dtotal(:,:,1)
   enddo
                           
 !================ Calculate the secondary residual =============================