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(*,*) "    ---------------"
  19 |           WRITE(*,*) "    Total run time: ", et_time - st_time
  20 |           WRITE(*,*) "    Computing time: ", c_time
  21 |           WRITE(*,*) "    ---------------"
  22 | 
  23 |         ENDIF
  24 | 
  25 | #ifdef USEPALM
  26 |         CALL stop_interface
  27 | #else
  28 |         CALL MPI_FINALIZE(ierr)
  29 | #endif
  30 | 
  31 |       END SUBROUTINE pmm_end