setup_solver Subroutine

  1. solver.f90
  2. solver
  3. setup_solver

public subroutine setup_solver()

Call to allocate memoery and initialize domain

Arguments

None

Calls

proc~~setup_solver~~CallsGraph proc~setup_solver setup_solver proc~initmisc initmisc proc~setup_solver->proc~initmisc mpi_barrier mpi_barrier proc~setup_solver->mpi_barrier proc~setup_geometry setup_geometry proc~setup_solver->proc~setup_geometry proc~setup_time setup_time proc~setup_solver->proc~setup_time proc~setup_gradients setup_gradients proc~setup_solver->proc~setup_gradients proc~checkpoint checkpoint proc~setup_solver->proc~checkpoint proc~setupcc setupCC proc~setup_solver->proc~setupcc proc~setup_state setup_state proc~setup_solver->proc~setup_state proc~setup_scheme setup_scheme proc~setup_solver->proc~setup_scheme proc~find_wall_dist find_wall_dist proc~setup_solver->proc~find_wall_dist proc~setup_wall_dist setup_wall_dist proc~setup_solver->proc~setup_wall_dist debugcall debugcall proc~setup_solver->debugcall proc~write_surfnode write_surfnode proc~setup_solver->proc~write_surfnode proc~read_input_and_controls read_input_and_controls proc~setup_solver->proc~read_input_and_controls proc~setup_interface setup_interface proc~setup_solver->proc~setup_interface proc~setup_bc setup_bc proc~setup_solver->proc~setup_bc proc~setup_resnorm setup_resnorm proc~setup_solver->proc~setup_resnorm proc~setup_viscosity setup_viscosity proc~setup_solver->proc~setup_viscosity proc~get_process_data get_process_data proc~setup_solver->proc~get_process_data proc~setup_update setup_update proc~setup_solver->proc~setup_update proc~read_layout_file read_layout_file proc~setup_solver->proc~read_layout_file proc~setup_grid setup_grid proc~setup_solver->proc~setup_grid

Called by

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

Contents

Source Code

setup_solver

Source Code

        subroutine setup_solver()
          !< Call to allocate memoery and initialize domain
          !--------------------------------------------------
            
            implicit none
            integer :: ierr

            DebugCall('setup_solver: Start')
            call get_process_data(control) ! parallel calls
            call read_layout_file(files, control, boundary) ! reads layout file calls
            
            call read_input_and_controls(files, control, schemes, flow)
            call setup_grid(files, nodes, control, boundary, dims)
            call setup_geometry(cells, Ifaces, Jfaces, Kfaces, nodes, boundary, dims)
            !call setup_viscosity(mu, mu_t, schemes, flow, dims)
            call setup_viscosity(schemes, flow, dims)
            call setup_state(files, qp, control, schemes, flow, dims)
            allocate(Temp(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+2))
            call setup_gradients(control,schemes,flow,dims)
            !call setup_source
            call setup_bc(files, schemes, flow, boundary, dims)
            call setup_time(delta_t, control,dims)
            call setup_update(control,schemes,flow, dims)
            call setup_interface(control,dims)
            call setup_scheme(residue, F,G,H, control, dims)
            if(schemes%turbulence /= 'none') then
              call write_surfnode(files, nodes, control, boundary, dims)
              call setup_wall_dist(files, dims)
              call mpi_barrier(MPI_COMM_WORLD,ierr)
              call find_wall_dist(nodes, dims)
            end if
            call setupCC(schemes, cells, Ifaces,Jfaces,Kfaces, dims)
            call setup_resnorm(files, control, schemes, flow)
            call initmisc()
            control%checkpoint_iter_count = 0
            call checkpoint(files, qp, nodes, control, schemes, dims)  ! Create an initial dump file
            control%current_iter=1
            DebugCall('setup_solver: checkpoint')
            DebugCall('Setup solver complete')

        end subroutine setup_solver