read_destroy_nodefile Subroutine

  1. wall_dist.f90
  2. wall_dist
  3. read_destroy_nodefile

private subroutine read_destroy_nodefile(files)

Read, and close surface_node_point file

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files

Called by

proc~~read_destroy_nodefile~~CalledByGraph proc~read_destroy_nodefile read_destroy_nodefile proc~setup_wall_dist setup_wall_dist proc~setup_wall_dist->proc~read_destroy_nodefile proc~setup_solver setup_solver proc~setup_solver->proc~setup_wall_dist proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

read_destroy_nodefile

Source Code

    subroutine read_destroy_nodefile(files)
      !< Read, and close surface_node_point file
      implicit none
      type(filetype), intent(in) :: files
      integer :: i
      do i = 1, n_surfnodes
        read(files%NODESURF_FILE_UNIT, *) wall_x(i), wall_y(i), wall_z(i)
      end do
      close(files%NODESURF_FILE_UNIT)
    end subroutine read_destroy_nodefile