223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

use sourced allocation

This commit is contained in:
Martin Diehl 2022-10-15 21:54:03 +02:00
parent 592936f21f
commit d315aac163
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/grid/grid_thermal_spectral.f90
View File

@ -110,7 +110,7 @@ subroutine grid_thermal_spectral_init()
T_current = discretization_grid_getInitialCondition('T')
T_lastInc = T_current
T_stagInc = T_current
allocate(dotT_lastInc(size(T_current,1),size(T_current,2),size(T_current,3)), source=0.0_pReal)
dotT_lastInc = 0.0_pReal * T_current
!--------------------------------------------------------------------------------------------------
! initialize solver specific parts of PETSc