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

more sensible locations for reporting

This commit is contained in:
Martin Diehl 2020-09-13 21:21:55 +02:00
parent 5558d95886
commit 3ebba9b3c0
4 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/DAMASK_interface.f90
View File

@ -191,7 +191,6 @@ subroutine DAMASK_interface_init
call get_command(commandLine) call get_command(commandLine)
call get_environment_variable('USER',userName) call get_environment_variable('USER',userName)
! ToDo: https://stackoverflow.com/questions/8953424/how-to-get-the-username-in-c-c-in-linux ! ToDo: https://stackoverflow.com/questions/8953424/how-to-get-the-username-in-c-c-in-linux
print'(/,a,i4.1)', ' MPI processes: ',worldsize
print'(a)', ' Host name: '//trim(getHostName()) print'(a)', ' Host name: '//trim(getHostName())
print'(a)', ' User name: '//trim(userName) print'(a)', ' User name: '//trim(userName)

4
src/grid/discretization_grid.f90
View File

@ -73,6 +73,10 @@ subroutine discretization_grid_init(restart)
call readGeom(grid,geomSize,origin,microstructureAt) call readGeom(grid,geomSize,origin,microstructureAt)
endif endif
print'(/,a,3(i12 ))', ' grid a b c: ', grid
print'(a,3(es12.5))', ' size x y z: ', geomSize
print'(a,3(es12.5))', ' origin x y z: ', origin
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! grid solver specific quantities ! grid solver specific quantities
if(worldsize>grid(3)) call IO_error(894, ext_msg='number of processes exceeds grid(3)') if(worldsize>grid(3)) call IO_error(894, ext_msg='number of processes exceeds grid(3)')

3
src/grid/spectral_utilities.f90
View File

@ -226,9 +226,6 @@ subroutine spectral_utilities_init
grid1Red = grid(1)/2 + 1 grid1Red = grid(1)/2 + 1
wgt = 1.0/real(product(grid),pReal) wgt = 1.0/real(product(grid),pReal)
print'(/,a,3(i12 ))', ' grid a b c: ', grid
print'(a,3(es12.5))', ' size x y z: ', geomSize
num%memory_efficient = num_grid%get_asInt('memory_efficient', defaultVal=1) > 0 ! ToDo: should be logical in YAML file num%memory_efficient = num_grid%get_asInt('memory_efficient', defaultVal=1) > 0 ! ToDo: should be logical in YAML file
num%divergence_correction = num_grid%get_asInt('divergence_correction', defaultVal=2) num%divergence_correction = num_grid%get_asInt('divergence_correction', defaultVal=2)

7
src/parallelization.f90
View File

@ -36,7 +36,7 @@ subroutine parallelization_init
PetscErrorCode :: petsc_err PetscErrorCode :: petsc_err
#else #else
write(6,'(/,a)') ' <<<+- parallelization init -+>>>'; flush(6) print'(/,a)', ' <<<+- parallelization init -+>>>'; flush(6)
#endif #endif
#ifdef PETSc #ifdef PETSc
@ -54,7 +54,8 @@ subroutine parallelization_init
call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,err) call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,err)
if (err /= 0) error stop 'Could not determine worldrank' if (err /= 0) error stop 'Could not determine worldrank'
if (worldrank == 0) write(6,'(/,a)') ' <<<+- parallelization init -+>>>'; flush(6) if (worldrank == 0) print'(/,a)', ' <<<+- parallelization init -+>>>'
if (worldrank == 0) print'(a,i3)', ' MPI processes: ',worldsize
call MPI_Comm_size(PETSC_COMM_WORLD,worldsize,err) call MPI_Comm_size(PETSC_COMM_WORLD,worldsize,err)
if (err /= 0) error stop 'Could not determine worldsize' if (err /= 0) error stop 'Could not determine worldsize'
@ -88,7 +89,7 @@ subroutine parallelization_init
!$ DAMASK_NUM_THREADS = 1_pI32 !$ DAMASK_NUM_THREADS = 1_pI32
!$ endif !$ endif
!$ endif !$ endif
!$ write(6,'(a,i8)') ' DAMASK_NUM_THREADS: ',DAMASK_NUM_THREADS !$ print'(a,i2)', ' DAMASK_NUM_THREADS: ',DAMASK_NUM_THREADS
!$ call omp_set_num_threads(DAMASK_NUM_THREADS) !$ call omp_set_num_threads(DAMASK_NUM_THREADS)
end subroutine parallelization_init end subroutine parallelization_init