73 |
#ifdef USE_LIBHPM |
#ifdef USE_LIBHPM |
74 |
CALL F_HPMTERMINATE(myProcId) |
CALL F_HPMTERMINATE(myProcId) |
75 |
#endif |
#endif |
76 |
|
|
77 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
78 |
C-- |
C- Note: since MPI_INIT is always called, better to also always terminate MPI |
79 |
|
C (even if usingMPI=F) --> comment out test on usingMPI |
80 |
|
c IF ( usingMPI ) THEN |
81 |
|
|
82 |
C-- MPI style multiple-process termination |
C-- MPI style multiple-process termination |
83 |
C-- ====================================== |
C-- ====================================== |
|
#ifndef ALWAYS_USE_MPI |
|
|
IF ( usingMPI ) THEN |
|
|
#endif |
|
84 |
#ifdef COMPONENT_MODULE |
#ifdef COMPONENT_MODULE |
85 |
IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC ) |
IF ( useCoupler) CALL MPI_BARRIER( MPI_COMM_WORLD, mpiRC ) |
86 |
#endif |
#endif |
96 |
& mpiRC |
& mpiRC |
97 |
CALL PRINT_ERROR( msgBuf, 1 ) |
CALL PRINT_ERROR( msgBuf, 1 ) |
98 |
ENDIF |
ENDIF |
99 |
C |
|
100 |
#ifndef ALWAYS_USE_MPI |
c ENDIF |
|
ENDIF |
|
|
#endif |
|
101 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
102 |
|
|
103 |
RETURN |
RETURN |