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

working directory is changed automatically

This commit is contained in:
Martin Diehl 2018-08-20 17:45:34 +02:00
parent 29cd8fa5e2
commit 031c59954f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/HDF5_utilities.f90
View File

@ -53,7 +53,6 @@ end subroutine HDF5_Utilities_init
subroutine HDF5_createJobFile subroutine HDF5_createJobFile
use hdf5 use hdf5
use DAMASK_interface, only: & use DAMASK_interface, only: &
getSolverWorkingDirectoryName, &
getSolverJobName getSolverJobName
implicit none implicit none
@ -84,7 +83,7 @@ subroutine HDF5_createJobFile
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! open file ! open file
path = trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.'//'hdf5' path = trim(getSolverJobName())//'.'//'hdf5'
!call h5fcreate_f(path,H5F_ACC_TRUNC_F,resultsFile,hdferr) !call h5fcreate_f(path,H5F_ACC_TRUNC_F,resultsFile,hdferr)
call h5fcreate_f(path,H5F_ACC_TRUNC_F,resultsFile,hdferr,access_prp = plist_id) call h5fcreate_f(path,H5F_ACC_TRUNC_F,resultsFile,hdferr,access_prp = plist_id)
if (hdferr < 0) call IO_error(100_pInt,ext_msg=path) if (hdferr < 0) call IO_error(100_pInt,ext_msg=path)