don't open closed units (MPI)

This commit is contained in:
Martin Diehl 2020-09-29 09:22:15 +02:00
parent 7beed17a39
commit 3ad63cb966
1 changed files with 1 additions and 1 deletions

View File

@ -82,7 +82,7 @@ subroutine DAMASK_interface_init
print'(/,a)', ' <<<+- DAMASK_interface init -+>>>'
open(OUTPUT_unit, encoding='UTF-8') ! for special characters in output
if(worldrank == 0) open(OUTPUT_UNIT, encoding='UTF-8') ! for special characters in output
! http://patorjk.com/software/taag/#p=display&f=Lean&t=DAMASK%203
#ifdef DEBUG