iterate_one_more_time_step Subroutine

  1. solver.f90
  2. solver
  3. iterate_one_more_time_step

public subroutine iterate_one_more_time_step()

Perform one time step iteration

Arguments

None

Calls

proc~~iterate_one_more_time_step~~CallsGraph proc~iterate_one_more_time_step iterate_one_more_time_step proc~find_resnorm find_resnorm proc~iterate_one_more_time_step->proc~find_resnorm proc~checkpoint checkpoint proc~iterate_one_more_time_step->proc~checkpoint debugcall debugcall proc~iterate_one_more_time_step->debugcall proc~get_next_solution get_next_solution proc~iterate_one_more_time_step->proc~get_next_solution mpi_bcast mpi_bcast proc~iterate_one_more_time_step->mpi_bcast proc~assemble_resnom_at_each_process assemble_resnom_at_each_process proc~find_resnorm->proc~assemble_resnom_at_each_process proc~write_resnorm write_resnorm proc~find_resnorm->proc~write_resnorm proc~get_relative_resnorm get_relative_resnorm proc~find_resnorm->proc~get_relative_resnorm proc~collect_resnorm_from_all_blocks collect_resnorm_from_all_blocks proc~find_resnorm->proc~collect_resnorm_from_all_blocks proc~get_absolute_resnorm get_absolute_resnorm proc~find_resnorm->proc~get_absolute_resnorm proc~checkpoint->debugcall proc~make_dump_dir make_dump_dir proc~checkpoint->proc~make_dump_dir proc~dump_data dump_data proc~checkpoint->proc~dump_data proc~purge_dump_dir purge_dump_dir proc~checkpoint->proc~purge_dump_dir proc~update_with update_with proc~get_next_solution->proc~update_with proc~compute_time_step compute_time_step proc~get_next_solution->proc~compute_time_step proc~update_with_plusgs update_with_plusgs proc~get_next_solution->proc~update_with_plusgs proc~update_with_lusgs update_with_lusgs proc~get_next_solution->proc~update_with_lusgs proc~get_total_conservative_residue get_total_conservative_Residue proc~get_next_solution->proc~get_total_conservative_residue proc~create_directory create_directory proc~make_dump_dir->proc~create_directory proc~compute_time_step->debugcall proc~compute_local_time_step compute_local_time_step proc~compute_time_step->proc~compute_local_time_step proc~compute_global_time_step compute_global_time_step proc~compute_time_step->proc~compute_global_time_step proc~update_simulation_clock update_simulation_clock proc~compute_time_step->proc~update_simulation_clock proc~update_lctm2015 update_lctm2015 proc~update_with_plusgs->proc~update_lctm2015 proc~update_laminar_variables update_laminar_variables proc~update_with_plusgs->proc~update_laminar_variables proc~update_sa_variables update_SA_variables proc~update_with_plusgs->proc~update_sa_variables proc~update_sst_variables update_SST_variables proc~update_with_plusgs->proc~update_sst_variables proc~dump_data->debugcall proc~write_file~4 write_file proc~dump_data->proc~write_file~4 proc~write_restart_log write_restart_log proc~dump_data->proc~write_restart_log mpi_allgather mpi_allgather proc~collect_resnorm_from_all_blocks->mpi_allgather proc~remove_directory remove_directory proc~purge_dump_dir->proc~remove_directory proc~update_with_lusgs->debugcall proc~update_kkl_variables update_KKL_variables proc~update_with_lusgs->proc~update_kkl_variables proc~update_sa_variables~2 update_SA_variables proc~update_with_lusgs->proc~update_sa_variables~2 proc~update_lctm2015~2 update_lctm2015 proc~update_with_lusgs->proc~update_lctm2015~2 proc~update_laminar_variables~2 update_laminar_variables proc~update_with_lusgs->proc~update_laminar_variables~2 proc~update_sst_variables~2 update_SST_variables proc~update_with_lusgs->proc~update_sst_variables~2 proc~apply_interface apply_interface proc~get_total_conservative_residue->proc~apply_interface proc~add_source_term_residue add_source_term_residue proc~get_total_conservative_residue->proc~add_source_term_residue proc~compute_residue compute_residue proc~get_total_conservative_residue->proc~compute_residue proc~populate_ghost_primitive populate_ghost_primitive proc~get_total_conservative_residue->proc~populate_ghost_primitive proc~evaluate_all_gradients evaluate_all_gradients proc~get_total_conservative_residue->proc~evaluate_all_gradients proc~calculate_viscosity calculate_viscosity proc~get_total_conservative_residue->proc~calculate_viscosity proc~reconstruct_boundary_state reconstruct_boundary_state proc~get_total_conservative_residue->proc~reconstruct_boundary_state proc~compute_fluxes~7 compute_fluxes proc~get_total_conservative_residue->proc~compute_fluxes~7 proc~compute_face_interpolant compute_face_interpolant proc~get_total_conservative_residue->proc~compute_face_interpolant proc~compute_viscous_fluxes compute_viscous_fluxes proc~get_total_conservative_residue->proc~compute_viscous_fluxes

Called by

proc~~iterate_one_more_time_step~~CalledByGraph proc~iterate_one_more_time_step iterate_one_more_time_step program~main main program~main->proc~iterate_one_more_time_step

Contents

Source Code

iterate_one_more_time_step

Source Code

        subroutine iterate_one_more_time_step()
            !< Perform one time step iteration
            !  This subroutine performs one iteration by stepping through
            !  time once.
            !-----------------------------------------------------------

            implicit none
            integer :: ierr
            DebugCall('iterate_one_more_time_step')

            if (process_id==0) then
              print*, control%current_iter
            end if

            call get_next_solution(qp, Temp, residue, delta_t, cells, F,G,H, Ifaces,Jfaces,Kfaces,control, schemes, flow, boundary, dims)
            call find_resnorm(files%RESNORM_FILE_UNIT, residue, F,G,H, control, schemes, dims)
            call checkpoint(files, qp, nodes, control, schemes, dims)
            control%current_iter = control%current_iter + 1
            if(process_id==0)then
              open(files%STOP_FILE_UNIT, file=files%stop_file)
              read(files%STOP_FILE_UNIT,*) control%want_to_stop
              close(files%STOP_FILE_UNIT)
            end if
            call MPI_BCAST(control%want_to_stop,1,MPI_INTEGER,0,MPI_COMM_WORLD,ierr)
            if (control%want_to_stop==1) control%Halt = .TRUE.

        end subroutine iterate_one_more_time_step