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

aliases for grid and size not supported any more

This commit is contained in:
Martin Diehl 2015-03-12 22:30:24 +00:00
parent 00cba25a44
commit aa125bac5b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/mesh.f90
View File

@ -1032,7 +1032,7 @@ function mesh_spectral_getGrid(fileUnit)
read(myFileUnit,'(a1024)') line read(myFileUnit,'(a1024)') line
positions = IO_stringPos(line,7_pInt) positions = IO_stringPos(line,7_pInt)
select case ( IO_lc(IO_StringValue(line,positions,1_pInt,.true.)) ) select case ( IO_lc(IO_StringValue(line,positions,1_pInt,.true.)) )
case ('resolution','grid') case ('grid')
gotGrid = .true. gotGrid = .true.
do j = 2_pInt,6_pInt,2_pInt do j = 2_pInt,6_pInt,2_pInt
select case (IO_lc(IO_stringValue(line,positions,j))) select case (IO_lc(IO_stringValue(line,positions,j)))
@ -1107,7 +1107,7 @@ function mesh_spectral_getSize(fileUnit)
read(myFileUnit,'(a1024)') line read(myFileUnit,'(a1024)') line
positions = IO_stringPos(line,7_pInt) positions = IO_stringPos(line,7_pInt)
select case ( IO_lc(IO_StringValue(line,positions,1,.true.)) ) select case ( IO_lc(IO_StringValue(line,positions,1,.true.)) )
case ('dimension', 'size') case ('size')
gotSize = .true. gotSize = .true.
do j = 2_pInt,6_pInt,2_pInt do j = 2_pInt,6_pInt,2_pInt
select case (IO_lc(IO_stringValue(line,positions,j))) select case (IO_lc(IO_stringValue(line,positions,j)))