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

minor polishing

This commit is contained in:
Sharan Roongta 2020-06-26 12:22:33 +02:00
parent 6e6e4dcdfd
commit 6f9f494654
4 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/homogenization.f90
View File

@ -62,7 +62,7 @@ module homogenization
module subroutine mech_RGC_init(num_homogMech) module subroutine mech_RGC_init(num_homogMech)
class(tNode), pointer, intent(in) :: & class(tNode), pointer, intent(in) :: &
num_homogMech num_homogMech !< pointer to mechanical homogenization numerics data
end subroutine mech_RGC_init end subroutine mech_RGC_init

4
src/homogenization_mech_RGC.f90
View File

@ -78,7 +78,7 @@ contains
module subroutine mech_RGC_init(num_homogMech) module subroutine mech_RGC_init(num_homogMech)
class(tNode), pointer, intent(in) :: & class(tNode), pointer, intent(in) :: &
num_homogMech num_homogMech !< pointer to mechanical homogenization numerics data
integer :: & integer :: &
Ninstance, & Ninstance, &
@ -87,7 +87,7 @@ module subroutine mech_RGC_init(num_homogMech)
sizeState, nIntFaceTot sizeState, nIntFaceTot
class (tNode), pointer :: & class (tNode), pointer :: &
num_RGC num_RGC ! pointer to RGC numerics data
write(6,'(/,a)') ' <<<+- homogenization_'//HOMOGENIZATION_RGC_label//' init -+>>>'; flush(6) write(6,'(/,a)') ' <<<+- homogenization_'//HOMOGENIZATION_RGC_label//' init -+>>>'; flush(6)

2
src/numerics.f90
View File

@ -20,7 +20,7 @@ module numerics
private private
class(tNode), pointer, protected, public :: & class(tNode), pointer, protected, public :: &
numerics_root numerics_root !< root pointer storing the numerics YAML structure
integer, protected, public :: & integer, protected, public :: &
worldrank = 0, & !< MPI worldrank (/=0 for MPI simulations only) worldrank = 0, & !< MPI worldrank (/=0 for MPI simulations only)
worldsize = 1 !< MPI worldsize (/=1 for MPI simulations only) worldsize = 1 !< MPI worldsize (/=1 for MPI simulations only)