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

bug fixes

This commit is contained in:
Martin Diehl 2021-03-26 12:43:27 +01:00
parent cb0d407ce4
commit d74c1534ed
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
processing/legacy/gmsh_identifySurfaces.py
View File

@ -1,8 +1,9 @@
#!/usr/bin/env python2.7 #!/usr/bin/env python3
# -*- coding: UTF-8 no BOM -*-
import os,re import os
import re
from optparse import OptionParser from optparse import OptionParser
import damask import damask
scriptName = os.path.splitext(os.path.basename(__file__))[0] scriptName = os.path.splitext(os.path.basename(__file__))[0]
@ -11,6 +12,7 @@ scriptID = ' '.join([scriptName,damask.version])
def all_same(items,a): def all_same(items,a):
return all(x == a for x in items) return all(x == a for x in items)
def func(seq): def func(seq):
for x in seq: for x in seq:
try: try:
@ -18,14 +20,14 @@ def func(seq):
except ValueError: except ValueError:
yield x yield x
#-------------------------------------------------------------------------------------------------- #--------------------------------------------------------------------------------------------------
# MAIN # MAIN
#-------------------------------------------------------------------------------------------------- #--------------------------------------------------------------------------------------------------
parser = OptionParser(option_class=damask.extendableOption, usage='%prog options [file[s]]',
description =' Recognize bounding surfaces and append them as physical sufaces in the geo file.',
version = scriptID)
parser = OptionParser(option_class=damask.extendableOption, usage='%prog options [file[s]]', description = """
Recognize bounding surfaces and append them as physical sufaces in the geo file.
""", version = scriptID)
parser.add_option('-n','--numvol', dest = 'N', type='int', metavar='int', parser.add_option('-n','--numvol', dest = 'N', type='int', metavar='int',
help='number of physical volumes' ) help='number of physical volumes' )

2
src/DAMASK_Marc.f90
View File

@ -366,7 +366,7 @@ subroutine uedinc(inc,incsub)
integer :: n, nqncomp, nqdatatype integer :: n, nqncomp, nqdatatype
integer, save :: inc_written integer, save :: inc_written
real(pReal), allocatable, dimension(:,:) :: d_n real(pReal), allocatable, dimension(:,:) :: d_n
#include QUOTE(PASTE(./marc/include/creeps,Marc4DAMASK)) ! creeps is needed for timinc (time increment) #include QUOTE(PASTE(./Marc/include/creeps,Marc4DAMASK)) ! creeps is needed for timinc (time increment)
if (inc > inc_written) then if (inc > inc_written) then