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

introduce commented new output with stream (no markers at begin/end) and with grid/size instead of res/dim

This commit is contained in:
Martin Diehl 2013-04-25 14:03:54 +00:00
parent 39f5a03496
commit d05ebff400
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/DAMASK_spectral_driver.f90
View File

@ -339,14 +339,18 @@ program DAMASK_spectral_Driver
if (appendToOutFile) then ! after restart, append to existing results file if (appendToOutFile) then ! after restart, append to existing results file
open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//&
'.spectralOut',form='UNFORMATTED', position='APPEND', status='OLD') '.spectralOut',form='UNFORMATTED', position='APPEND', status='OLD')
! '.spectralOut',access='STREAM', position='APPEND', status='OLD')
open(newunit=statUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& open(newunit=statUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//&
'.sta',form='FORMATTED', position='APPEND', status='OLD') '.sta',form='FORMATTED', position='APPEND', status='OLD')
else ! open new files ... else ! open new files ...
open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& open(newunit=resUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//&
'.spectralOut',form='UNFORMATTED',status='REPLACE') '.spectralOut',form='UNFORMATTED',status='REPLACE')
! '.spectralOut',access='STREAM',status='REPLACE')
write(resUnit) 'load', trim(loadCaseFile) ! ... and write header write(resUnit) 'load', trim(loadCaseFile) ! ... and write header
write(resUnit) 'workingdir', trim(getSolverWorkingDirectoryName()) write(resUnit) 'workingdir', trim(getSolverWorkingDirectoryName())
write(resUnit) 'geometry', trim(geometryFile) write(resUnit) 'geometry', trim(geometryFile)
!write(resUnit) 'grid', res
!write(resUnit) 'size', geomdim
write(resUnit) 'resolution', res write(resUnit) 'resolution', res
write(resUnit) 'dimension', geomdim write(resUnit) 'dimension', geomdim
write(resUnit) 'materialpoint_sizeResults', materialpoint_sizeResults write(resUnit) 'materialpoint_sizeResults', materialpoint_sizeResults