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

simplifying 

still trying to figure out how to best use HDF5 for reference stiffness
This commit is contained in:
Martin Diehl 2020-03-09 14:05:49 +01:00
parent cf8e3fb91a
commit a1f36b14d3
2 changed files with 3 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/IO.f90
View File

@ -7,7 +7,6 @@
!--------------------------------------------------------------------------------------------------
module IO
use prec
use DAMASK_interface
implicit none
private
@ -25,7 +24,7 @@ module IO
public :: &
IO_init, &
IO_read_ASCII, &
IO_open_jobFile_binary, &
IO_open_binary, &
IO_isBlank, &
IO_getTag, &
IO_stringPos, &
@ -116,24 +115,6 @@ function IO_read_ASCII(fileName) result(fileContent)
end function IO_read_ASCII
!--------------------------------------------------------------------------------------------------
!> @brief opens an existing file for reading or a new file for writing. Name is the job name
!> @details replaces an existing file when writing
!--------------------------------------------------------------------------------------------------
integer function IO_open_jobFile_binary(extension,mode)
character(len=*), intent(in) :: extension
character, intent(in), optional :: mode
if (present(mode)) then
IO_open_jobFile_binary = IO_open_binary(trim(getSolverJobName())//'.'//trim(extension),mode)
else
IO_open_jobFile_binary = IO_open_binary(trim(getSolverJobName())//'.'//trim(extension))
endif
end function IO_open_jobFile_binary
!--------------------------------------------------------------------------------------------------
!> @brief opens an existing file for reading or a new file for writing.
!> @details replaces an existing file when writing

3
src/grid/spectral_utilities.f90
View File

@ -9,6 +9,7 @@ module spectral_utilities
use PETScSys
use prec
use DAMASK_interface
use math
use rotations
use IO
@ -1101,7 +1102,7 @@ subroutine utilities_saveReferenceStiffness
if (worldrank == 0) then
write(6,'(a)') ' writing reference stiffness data required for restart to file'; flush(6)
fileUnit = IO_open_jobFile_binary('C_ref','w')
fileUnit = IO_open_binary(trim(getSolverJobName())//'.C_ref','w')
write(fileUnit) C_ref
close(fileUnit)
endif