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 ! PETSc Init
#ifdef _OPENM #ifdef _OPENMP
! If openMP is enabled, check if the MPI libary supports it and initialize accordingly. ! If openMP is enabled, check if the MPI libary supports it and initialize accordingly.
! Otherwise, the first call to PETSc will do the initialization. ! Otherwise, the first call to PETSc will do the initialization.
call MPI_Init_Thread(MPI_THREAD_FUNNELED,threadLevel,ierr);CHKERRQ(ierr) call MPI_Init_Thread(MPI_THREAD_FUNNELED,threadLevel,ierr);CHKERRQ(ierr)