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

polishing, HDF5 related changes

This commit is contained in:
Martin Diehl 2014-04-15 09:49:50 +00:00
parent 6f2f04fa49
commit 6314271136
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/DAMASK_spectral_utilities.f90
View File

@ -492,8 +492,6 @@ subroutine utilities_inverseLaplace()
write(6,'(/,a)') ' ... doing inverse laplace .................................................' write(6,'(/,a)') ' ... doing inverse laplace .................................................'
flush(6) flush(6)
!--------------------------------------------------------------------------------------------------
! do the actual spectral method calculation (mechanical equilibrium)
do k = 1_pInt, grid(3) do k = 1_pInt, grid(3)
k_s(3) = k - 1_pInt k_s(3) = k - 1_pInt
if(k > grid(3)/2_pInt + 1_pInt) k_s(3) = k_s(3) - grid(3) ! running from 0,1,...,N/2,N/2+1,-N/2,-N/2+1,...,-1 if(k > grid(3)/2_pInt + 1_pInt) k_s(3) = k_s(3) - grid(3) ! running from 0,1,...,N/2,N/2+1,-N/2,-N/2+1,...,-1

4
code/homogenization.f90
View File

@ -78,8 +78,7 @@ subroutine homogenization_init()
use hdf5, only: & use hdf5, only: &
HID_T HID_T
use IO, only : & use IO, only : &
HDF5_mappingHomogenization, & HDF5_mappingHomogenization
HDF5_closeJobFile
#endif #endif
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use math, only: & use math, only: &
@ -221,7 +220,6 @@ subroutine homogenization_init()
enddo elementLooping enddo elementLooping
#ifdef HDF #ifdef HDF
call HDF5_mappingHomogenization(mapping) call HDF5_mappingHomogenization(mapping)
call HDF5_closeJobFile()
#endif #endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------