exitmpi Subroutine

public subroutine exitmpi()

Uses

    • decomp_2d
  • proc~~exitmpi~~UsesGraph proc~exitmpi exitmpi decomp_2d decomp_2d proc~exitmpi->decomp_2d

Arguments

None

Calls

proc~~exitmpi~~CallsGraph proc~exitmpi exitmpi decomp_2d_finalize decomp_2d_finalize proc~exitmpi->decomp_2d_finalize mpi_finalize mpi_finalize proc~exitmpi->mpi_finalize mpi_wtime mpi_wtime proc~exitmpi->mpi_wtime

Called by

proc~~exitmpi~~CalledByGraph proc~exitmpi exitmpi proc~exitmodules exitmodules proc~exitmodules->proc~exitmpi program~dalesurban DALESURBAN program~dalesurban->proc~exitmpi

Source Code

  subroutine exitmpi
    use decomp_2d
    implicit none

    if(myid==0)then
      CPU_program = MPI_Wtime() - CPU_program0
      write(6,*)'TOTAL CPU time = ', CPU_program
    end if

    !call MPI_Comm_free( comm3d, mpierr )
    !call MPI_FINALIZE(mpierr)
    call decomp_2d_finalize
    call MPI_FINALIZE(mpierr)
  end subroutine exitmpi