destroy_surface Subroutine

  1. wall.f90
  2. wall
  3. destroy_surface

private subroutine destroy_surface()

Deallocate memory, unlink pointers, and close MPI_shared file

Arguments

None

Calls

proc~~destroy_surface~~CallsGraph proc~destroy_surface destroy_surface proc~deallocate_memory~3 deallocate_memory proc~destroy_surface->proc~deallocate_memory~3 mpi_file_close mpi_file_close proc~destroy_surface->mpi_file_close proc~dmsg dmsg proc~destroy_surface->proc~dmsg proc~unlink_aliases unlink_aliases proc~destroy_surface->proc~unlink_aliases proc~deallocate_memory~3->proc~dmsg interface~dealloc dealloc proc~deallocate_memory~3->interface~dealloc proc~unlink_aliases->proc~dmsg proc~dealloc_rank2_real dealloc_rank2_real interface~dealloc->proc~dealloc_rank2_real proc~dealloc_rank4_real dealloc_rank4_real interface~dealloc->proc~dealloc_rank4_real proc~dealloc_rank1_integer dealloc_rank1_integer interface~dealloc->proc~dealloc_rank1_integer proc~dealloc_rank2_integer dealloc_rank2_integer interface~dealloc->proc~dealloc_rank2_integer proc~dealloc_rank1_real dealloc_rank1_real interface~dealloc->proc~dealloc_rank1_real proc~dealloc_rank3_integer dealloc_rank3_integer interface~dealloc->proc~dealloc_rank3_integer proc~dealloc_rank3_real dealloc_rank3_real interface~dealloc->proc~dealloc_rank3_real proc~dealloc_rank5_real dealloc_rank5_real interface~dealloc->proc~dealloc_rank5_real proc~dealloc_rank6_real dealloc_rank6_real interface~dealloc->proc~dealloc_rank6_real

Called by

proc~~destroy_surface~~CalledByGraph proc~destroy_surface destroy_surface proc~write_surfnode write_surfnode proc~write_surfnode->proc~destroy_surface proc~setup_solver setup_solver proc~setup_solver->proc~write_surfnode proc~setup_all setup_all proc~setup_all->proc~write_surfnode proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

destroy_surface

Source Code

    subroutine destroy_surface()
      !< Deallocate memory, unlink pointers, and close MPI_shared file

      implicit none

      call dmsg(1, 'wall_find', 'destroy_surface')
      call deallocate_memory()
      call unlink_aliases()
      call MPI_FILE_CLOSE(thisfile, ierr)

    end subroutine destroy_surface