better print then write
- shorter, always writes to STDOUT also, report only details (paper) of active models
This commit is contained in:
parent
84b9104302
commit
0153bca277
|
@ -446,7 +446,7 @@ subroutine constitutive_init
|
||||||
call damage_init
|
call damage_init
|
||||||
call thermal_init
|
call thermal_init
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- constitutive init -+>>>'; flush(6)
|
print'(/,a)', ' <<<+- constitutive init -+>>>'; flush(6)
|
||||||
|
|
||||||
constitutive_source_maxSizeDotState = 0
|
constitutive_source_maxSizeDotState = 0
|
||||||
PhaseLoop2:do p = 1,phases%length
|
PhaseLoop2:do p = 1,phases%length
|
||||||
|
|
|
@ -198,6 +198,8 @@ module subroutine plastic_init
|
||||||
integer :: p
|
integer :: p
|
||||||
class(tNode), pointer :: phases
|
class(tNode), pointer :: phases
|
||||||
|
|
||||||
|
print'(/,a)', ' <<<+- constitutive_plastic init -+>>>'
|
||||||
|
|
||||||
phases => config_material%get('phase')
|
phases => config_material%get('phase')
|
||||||
|
|
||||||
allocate(plasticState(phases%length))
|
allocate(plasticState(phases%length))
|
||||||
|
|
|
@ -96,17 +96,16 @@ module function plastic_disloTungsten_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_disloTungsten init -+>>>'
|
print'(/,a)', ' <<<+- plastic_dislotungsten init -+>>>'
|
||||||
|
|
||||||
write(6,'(/,a)') ' Cereceda et al., International Journal of Plasticity 78:242–256, 2016'
|
|
||||||
write(6,'(a)') ' https://dx.doi.org/10.1016/j.ijplas.2015.09.002'
|
|
||||||
|
|
||||||
myPlasticity = plastic_active('disloTungsten')
|
myPlasticity = plastic_active('disloTungsten')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
|
print*, 'Cereceda et al., International Journal of Plasticity 78:242–256, 2016'
|
||||||
|
print*, 'https://dx.doi.org/10.1016/j.ijplas.2015.09.002'
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
allocate(state(Ninstance))
|
allocate(state(Ninstance))
|
||||||
allocate(dotState(Ninstance))
|
allocate(dotState(Ninstance))
|
||||||
|
|
|
@ -143,23 +143,22 @@ module function plastic_dislotwin_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- constitutive_dislotwin init -+>>>'
|
print'(/,a)', ' <<<+- plastic_dislotwin init -+>>>'
|
||||||
|
|
||||||
write(6,'(/,a)') ' Ma and Roters, Acta Materialia 52(12):3603–3612, 2004'
|
|
||||||
write(6,'(a)') ' https://doi.org/10.1016/j.actamat.2004.04.012'
|
|
||||||
|
|
||||||
write(6,'(/,a)') ' Roters et al., Computational Materials Science 39:91–95, 2007'
|
|
||||||
write(6,'(a)') ' https://doi.org/10.1016/j.commatsci.2006.04.014'
|
|
||||||
|
|
||||||
write(6,'(/,a)') ' Wong et al., Acta Materialia 118:140–151, 2016'
|
|
||||||
write(6,'(a,/)') ' https://doi.org/10.1016/j.actamat.2016.07.032'
|
|
||||||
|
|
||||||
myPlasticity = plastic_active('dislotwin')
|
myPlasticity = plastic_active('dislotwin')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
|
print*, 'Ma and Roters, Acta Materialia 52(12):3603–3612, 2004'
|
||||||
|
print*, 'https://doi.org/10.1016/j.actamat.2004.04.012'//IO_EOL
|
||||||
|
|
||||||
|
print*, 'Roters et al., Computational Materials Science 39:91–95, 2007'
|
||||||
|
print*, 'https://doi.org/10.1016/j.commatsci.2006.04.014'//IO_EOL
|
||||||
|
|
||||||
|
print*, 'Wong et al., Acta Materialia 118:140–151, 2016'
|
||||||
|
print*, 'https://doi.org/10.1016/j.actamat.2016.07.032'
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
allocate(state(Ninstance))
|
allocate(state(Ninstance))
|
||||||
allocate(dotState(Ninstance))
|
allocate(dotState(Ninstance))
|
||||||
|
|
|
@ -67,18 +67,16 @@ module function plastic_isotropic_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_isotropic init -+>>>'
|
print'(/,a)', ' <<<+- plastic_isotropic init -+>>>'
|
||||||
|
|
||||||
write(6,'(/,a)') ' Maiti and Eisenlohr, Scripta Materialia 145:37–40, 2018'
|
|
||||||
write(6,'(a)') ' https://doi.org/10.1016/j.scriptamat.2017.09.047'
|
|
||||||
|
|
||||||
|
|
||||||
myPlasticity = plastic_active('isotropic')
|
myPlasticity = plastic_active('isotropic')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
|
print*, 'Maiti and Eisenlohr, Scripta Materialia 145:37–40, 2018'
|
||||||
|
print*, 'https://doi.org/10.1016/j.scriptamat.2017.09.047'
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
allocate(state(Ninstance))
|
allocate(state(Ninstance))
|
||||||
allocate(dotState(Ninstance))
|
allocate(dotState(Ninstance))
|
||||||
|
|
|
@ -79,12 +79,11 @@ module function plastic_kinehardening_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_kinehardening init -+>>>'
|
print'(/,a)', ' <<<+- plastic_kinehardening init -+>>>'
|
||||||
|
|
||||||
myPlasticity = plastic_active('kinehardening')
|
myPlasticity = plastic_active('kinehardening')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
|
|
|
@ -9,7 +9,7 @@ submodule(constitutive:constitutive_plastic) plastic_none
|
||||||
contains
|
contains
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief module initialization
|
!> @brief Perform module initialization.
|
||||||
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
module function plastic_none_init() result(myPlasticity)
|
module function plastic_none_init() result(myPlasticity)
|
||||||
|
@ -24,7 +24,7 @@ module function plastic_none_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_none init -+>>>'
|
print'(/,a)', ' <<<+- plastic_none init -+>>>'
|
||||||
|
|
||||||
phases => config_material%get('phase')
|
phases => config_material%get('phase')
|
||||||
allocate(myPlasticity(phases%length), source = .false.)
|
allocate(myPlasticity(phases%length), source = .false.)
|
||||||
|
@ -35,7 +35,7 @@ module function plastic_none_init() result(myPlasticity)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
do p = 1, phases%length
|
do p = 1, phases%length
|
||||||
|
|
|
@ -159,8 +159,9 @@ submodule(constitutive:constitutive_plastic) plastic_nonlocal
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief module initialization
|
!> @brief Perform module initialization.
|
||||||
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
!> @details reads in material parameters, allocates arrays, and does sanity checks
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
module function plastic_nonlocal_init() result(myPlasticity)
|
module function plastic_nonlocal_init() result(myPlasticity)
|
||||||
|
@ -184,23 +185,21 @@ module function plastic_nonlocal_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_nonlocal init -+>>>'
|
print'(/,a)', ' <<<+- plastic_nonlocal init -+>>>'
|
||||||
|
|
||||||
write(6,'(/,a)') ' Reuber et al., Acta Materialia 71:333–348, 2014'
|
|
||||||
write(6,'(a)') ' https://doi.org/10.1016/j.actamat.2014.03.012'
|
|
||||||
|
|
||||||
write(6,'(/,a)') ' Kords, Dissertation RWTH Aachen, 2014'
|
|
||||||
write(6,'(a)') ' http://publications.rwth-aachen.de/record/229993'
|
|
||||||
|
|
||||||
myPlasticity = plastic_active('nonlocal')
|
myPlasticity = plastic_active('nonlocal')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) then
|
if(Ninstance == 0) then
|
||||||
call geometry_plastic_nonlocal_disable
|
call geometry_plastic_nonlocal_disable
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
print*, 'Reuber et al., Acta Materialia 71:333–348, 2014'
|
||||||
|
print*, 'https://doi.org/10.1016/j.actamat.2014.03.012'//IO_EOL
|
||||||
|
|
||||||
|
print*, 'Kords, Dissertation RWTH Aachen, 2014'
|
||||||
|
print*, 'http://publications.rwth-aachen.de/record/229993'//IO_EOL
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
allocate(state(Ninstance))
|
allocate(state(Ninstance))
|
||||||
|
|
|
@ -88,13 +88,11 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
|
||||||
phase, &
|
phase, &
|
||||||
pl
|
pl
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- plastic_phenopowerlaw init -+>>>'
|
print'(/,a)', ' <<<+- plastic_phenopowerlaw init -+>>>'
|
||||||
|
|
||||||
|
|
||||||
myPlasticity = plastic_active('phenopowerlaw')
|
myPlasticity = plastic_active('phenopowerlaw')
|
||||||
|
|
||||||
Ninstance = count(myPlasticity)
|
Ninstance = count(myPlasticity)
|
||||||
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
|
print'(a,i2)', ' # instances: ',Ninstance; flush(6)
|
||||||
if(Ninstance == 0) return
|
if(Ninstance == 0) return
|
||||||
|
|
||||||
allocate(param(Ninstance))
|
allocate(param(Ninstance))
|
||||||
|
|
Loading…
Reference in New Issue