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

View File

@ -254,6 +254,9 @@ program DAMASK_spectral
print '(a)', 'drop guessing along trajectory'
if (any(bc_mask(:,:,1,loadcase) .eqv. bc_mask(:,:,2,loadcase)))& ! exclusive or masking only
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
do j = 1, 3
if (any(bc_mask(j,:,1,loadcase) .eqv. .true.) .and.&

View File

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