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

added IO error in case mixed BC that allow rotation are given

This commit is contained in:
Martin Diehl 2011-09-02 13:50:05 +00:00
parent 320ec4d0b4
commit e8628996ff
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/DAMASK_spectral.f90
View File

@ -252,8 +252,11 @@ program DAMASK_spectral
print '(a,i5)', 'Loadcase:', loadcase print '(a,i5)', 'Loadcase:', loadcase
if (.not. followFormerTrajectory(loadcase)) & if (.not. followFormerTrajectory(loadcase)) &
print '(a)', 'drop guessing along trajectory' print '(a)', 'drop guessing along trajectory'
if (any(bc_mask(:,:,1,loadcase) .eqv. bc_mask(:,:,2,loadcase)))& ! exclusive or masking only if (any(bc_mask(:,:,1,loadcase) .eqv. bc_mask(:,:,2,loadcase)))& ! exclusive or masking only
call IO_error(31,loadcase) call IO_error(31,loadcase)
if (any(bc_mask(1:3,1:3,2,loadcase).and.transpose(bc_mask(1:3,1:3,2,loadcase)).and.&
reshape((/.false.,.true.,.true.,.true.,.false.,.true.,.true.,.true.,.false./),(/3,3/))))&
call IO_error(38,loadcase)
if (velGradApplied(loadcase)) then if (velGradApplied(loadcase)) then
do j = 1, 3 do j = 1, 3
if (any(bc_mask(j,:,1,loadcase) .eqv. .true.) .and.& if (any(bc_mask(j,:,1,loadcase) .eqv. .true.) .and.&

2
code/IO.f90
View File

@ -1198,6 +1198,8 @@ endfunction
msg = 'non-positive result frequency in spectral loadcase' msg = 'non-positive result frequency in spectral loadcase'
case (37) case (37)
msg = 'incomplete loadcase' msg = 'incomplete loadcase'
case (38)
msg = 'mixed boundary conditions allow rotation'
case (40) case (40)
msg = 'path rectification error' msg = 'path rectification error'
case (41) case (41)