following renames and access pattern

2021-04-10 21:16:57 +02:00 · 2021-04-10 21:16:57 +02:00 · 97d426718a
parent 690777ac88
commit 97d426718a
1 changed files with 1 additions and 1 deletions
--- a/src/DAMASK_Marc.f90
+++ b/src/DAMASK_Marc.f90
@ -344,8 +344,8 @@ subroutine flux(f,ts,n,time)
  real(pReal), dimension(2),           intent(out) :: &
    f

+  f(1) = homogenization_f_T(discretization_Marc_FEM2DAMASK_cell(n(3),n(1)))
  f(2) = 0.0_pReal
-  call thermal_conduction_getSource(f(1), n(3),mesh_FEM2DAMASK_elem(n(1)))

 end subroutine flux