typo, cause wrong finalization sequence

This commit is contained in:
Martin Diehl 2018-02-12 15:03:35 +01:00
parent fe07a34c69
commit c544fa1b34
1 changed files with 1 additions and 1 deletions

View File

@ -82,7 +82,7 @@ subroutine DAMASK_interface_init()
!--------------------------------------------------------------------------------------------------
! PETSc Init
#ifdef _OPENM
#ifdef _OPENMP
! If openMP is enabled, check if the MPI libary supports it and initialize accordingly.
! Otherwise, the first call to PETSc will do the initialization.
call MPI_Init_Thread(MPI_THREAD_FUNNELED,threadLevel,ierr);CHKERRQ(ierr)