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

* allow zero cutoff radius 

* added missing error codes
This commit is contained in:
Christoph Kords 2011-01-12 12:36:48 +00:00
parent d92f992eb7
commit 062c6b3d54
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/IO.f90
View File

@ -1219,6 +1219,10 @@ endfunction
msg = 'Non-positive activation energy for dislocation climb' msg = 'Non-positive activation energy for dislocation climb'
case (233) case (233)
msg = 'Non-positive relevant dislocation density' msg = 'Non-positive relevant dislocation density'
case (234)
msg = 'Negative cutoff radius'
case (235)
msg = 'Non-positive activation energy for dislocation glide'
case (240) case (240)
msg = 'Non-positive Taylor factor' msg = 'Non-positive Taylor factor'
case (241) case (241)

4
code/constitutive_nonlocal.f90
View File

@ -374,8 +374,8 @@ enddo
enddo enddo
if (any(constitutive_nonlocal_interactionSlipSlip(1:maxval(lattice_interactionSlipSlip(:,:,myStructure)),i) < 0.0_pReal)) & if (any(constitutive_nonlocal_interactionSlipSlip(1:maxval(lattice_interactionSlipSlip(:,:,myStructure)),i) < 0.0_pReal)) &
call IO_error(229) call IO_error(229)
if (constitutive_nonlocal_Q0(i) <= 0.0_pReal) call IO_error(-1) if (constitutive_nonlocal_Q0(i) <= 0.0_pReal) call IO_error(235)
if (constitutive_nonlocal_R(i) <= 0.0_pReal) call IO_error(-1) if (constitutive_nonlocal_R(i) < 0.0_pReal) call IO_error(234)
if (constitutive_nonlocal_atomicVolume(i) <= 0.0_pReal) call IO_error(230) if (constitutive_nonlocal_atomicVolume(i) <= 0.0_pReal) call IO_error(230)
if (constitutive_nonlocal_D0(i) <= 0.0_pReal) call IO_error(231) if (constitutive_nonlocal_D0(i) <= 0.0_pReal) call IO_error(231)
if (constitutive_nonlocal_Qsd(i) <= 0.0_pReal) call IO_error(232) if (constitutive_nonlocal_Qsd(i) <= 0.0_pReal) call IO_error(232)