setup_nodefile Subroutine

private subroutine setup_nodefile(files)

Open and read first line of surface_node_point file

Arguments

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

Called by

proc~~setup_nodefile~~CalledByGraph proc~setup_nodefile setup_nodefile proc~setup_wall_dist setup_wall_dist proc~setup_wall_dist->proc~setup_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


Source Code

    subroutine setup_nodefile(files)
      !< Open and read first line of surface_node_point file
      implicit none
      type(filetype), intent(in) :: files
      integer :: ios
      open(files%NODESURF_FILE_UNIT, file=files%surface_node_points, status='old', IOSTAT=ios)
      if(ios/=0) then
        print*, "!!! -->file containg surface nodepoints not found"
        Fatal_error
      end if
      read(files%NODESURF_FILE_UNIT, *) n_surfnodes

    end subroutine setup_nodefile