setup_wall_dist Subroutine

  1. wall_dist.f90
  2. wall_dist
  3. setup_wall_dist

public subroutine setup_wall_dist(files, dims)

Allocate memory to the wall_distance variables and read the surface node file

Arguments

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

Calls

proc~~setup_wall_dist~~CallsGraph proc~setup_wall_dist setup_wall_dist debugcall debugcall proc~setup_wall_dist->debugcall interface~alloc alloc proc~setup_wall_dist->interface~alloc proc~read_destroy_nodefile read_destroy_nodefile proc~setup_wall_dist->proc~read_destroy_nodefile proc~setup_nodefile setup_nodefile proc~setup_wall_dist->proc~setup_nodefile proc~alloc_rank2_real alloc_rank2_real interface~alloc->proc~alloc_rank2_real proc~alloc_rank4_real alloc_rank4_real interface~alloc->proc~alloc_rank4_real proc~alloc_rank3_real alloc_rank3_real interface~alloc->proc~alloc_rank3_real proc~alloc_rank2_integer alloc_rank2_integer interface~alloc->proc~alloc_rank2_integer proc~alloc_rank1_integer alloc_rank1_integer interface~alloc->proc~alloc_rank1_integer proc~alloc_rank6_real alloc_rank6_real interface~alloc->proc~alloc_rank6_real proc~alloc_rank5_real alloc_rank5_real interface~alloc->proc~alloc_rank5_real proc~alloc_rank3_integer alloc_rank3_integer interface~alloc->proc~alloc_rank3_integer proc~alloc_rank1_real alloc_rank1_real interface~alloc->proc~alloc_rank1_real

Called by

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

setup_wall_dist

Source Code

    subroutine setup_wall_dist(files, dims)
      !< Allocate memory to the wall_distance variables
      !< and read the surface node file

      implicit none
      type(filetype), intent(in) :: files
      type(extent), intent(in) :: dims
      imx = dims%imx
      jmx = dims%jmx
      kmx = dims%kmx

      DebugCall('setup_wall_dist')
      call setup_nodefile(files)
      call alloc(wall_x, 1, n_surfnodes,&
                "ERROR: unale to allocate memory to 'Dist' variable " )
      call alloc(wall_y, 1, n_surfnodes,&
                "ERROR: unale to allocate memory to 'Dist' variable " )
      call alloc(wall_z, 1, n_surfnodes,&
                "ERROR: unale to allocate memory to 'Dist' variable " )
      call alloc(dist, -2, imx+2, -2, jmx+2, -2, kmx+2, &
                "ERROR: unale to allocate memory to 'Dist' variable " )
      call read_destroy_nodefile(files)

    end subroutine setup_wall_dist