link_aliases Subroutine

  1. wall.f90
  2. wall
  3. link_aliases

private subroutine link_aliases()

Link pointers wall_x, wall_y, wall_z to wallc

Arguments

None

Calls

proc~~link_aliases~~CallsGraph proc~link_aliases link_aliases debugcall debugcall proc~link_aliases->debugcall

Called by

proc~~link_aliases~~CalledByGraph proc~link_aliases link_aliases proc~setup_surface setup_surface proc~setup_surface->proc~link_aliases proc~write_surfnode write_surfnode proc~write_surfnode->proc~setup_surface proc~setup_solver setup_solver proc~setup_solver->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

link_aliases

Source Code

    subroutine link_aliases()
      !< Link pointers wall_x, wall_y, wall_z to wallc

      implicit none

      DebugCall('link_aliases')
      wall_x(1:n_wall) => wallc(1:n_wall,1)
      wall_y(1:n_wall) => wallc(1:n_wall,2)
      wall_z(1:n_wall) => wallc(1:n_wall,3)

    end subroutine link_aliases