destroy_wall_dist Subroutine

  1. wall_dist.f90
  2. wall_dist
  3. destroy_wall_dist

public subroutine destroy_wall_dist()

Deallocate the memory of wall_distance variable, wall_x, wall_y, and wall_z

Arguments

None

Calls

proc~~destroy_wall_dist~~CallsGraph proc~destroy_wall_dist destroy_wall_dist interface~dealloc dealloc proc~destroy_wall_dist->interface~dealloc proc~dmsg dmsg proc~destroy_wall_dist->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_wall_dist~~CalledByGraph proc~destroy_wall_dist destroy_wall_dist proc~destroy_all destroy_all proc~destroy_all->proc~destroy_wall_dist proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_wall_dist proc~finish_run finish_run proc~finish_run->proc~destroy_solver proc~abort_run abort_run proc~abort_run->proc~destroy_solver program~main main program~main->proc~finish_run

Contents

Source Code

destroy_wall_dist

Source Code

    subroutine destroy_wall_dist()
      !< Deallocate the memory of wall_distance variable,
      !< wall_x, wall_y, and wall_z

      implicit none

      call dmsg(1, 'wall_dist', 'destroy_wall_dist')
      call dealloc(wall_x)
      call dealloc(wall_y)
      call dealloc(wall_z)
      call dealloc(dist)

    end subroutine destroy_wall_dist