1 | include(dom.inc)
2 |
3 | SUBROUTINE pmm_end(ierr)
4 |
5 | USE mod_pmm
6 |
7 | IMPLICIT NONE
8 |
9 | include 'pmm_constants.h'
10 |
11 | ! INOUT
12 | DOM_INT :: ierr
13 |
14 | IF (pmm_rank.eq.PMM_HOST) THEN
15 |
16 | et_time = MPI_WTIME()
17 |
18 | WRITE(*,*) " Total run time: ", et_time - st_time
19 | WRITE(*,*) " Computing time: ", c_time
20 |
21 | ENDIF
22 |
23 | #ifdef USEPALM
24 | CALL stop_interface
25 | #else
26 | CALL MPI_FINALIZE(ierr)
27 | #endif
28 |
29 | END SUBROUTINE pmm_end
pmm_end.F could be called by: