unlink_aliases Subroutine

  1. wall.f90
  2. wall
  3. unlink_aliases

private subroutine unlink_aliases()

Unlink all the pointer used in this module

Arguments

None

Calls

proc~~unlink_aliases~~CallsGraph proc~unlink_aliases unlink_aliases proc~dmsg dmsg proc~unlink_aliases->proc~dmsg

Called by

proc~~unlink_aliases~~CalledByGraph proc~unlink_aliases unlink_aliases proc~destroy_surface destroy_surface proc~destroy_surface->proc~unlink_aliases 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

unlink_aliases

Source Code

    subroutine unlink_aliases()
      !< Unlink all the pointer used in this module

      implicit none

      call dmsg(1, 'wall_find', 'unlink_aliases')
      nullify(wall_x)
      nullify(wall_y)
      nullify(wall_z)

    end subroutine unlink_aliases