dump_data Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. dump_data

private subroutine dump_data(files, qp, nodes, control, scheme, dims)

Call to write save files in the directory

Arguments

Type IntentOptional AttributesName
type(filetype), intent(inout) :: files
real(kind=wp), intent(in), dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+2, 1:dims%n_var):: qp
type(nodetype), intent(in), dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3):: nodes
type(controltype), intent(in) :: control
type(schemetype), intent(in) :: scheme
type(extent), intent(in) :: dims

Calls

proc~~dump_data~~CallsGraph proc~dump_data dump_data debugcall debugcall proc~dump_data->debugcall proc~write_restart_log write_restart_log proc~dump_data->proc~write_restart_log proc~write_file~4 write_file proc~dump_data->proc~write_file~4 proc~write_initial_resnorm write_initial_resnorm proc~write_restart_log->proc~write_initial_resnorm proc~close_file close_file proc~write_file~4->proc~close_file write_file_tec_nodal write_file_tec_nodal proc~write_file~4->write_file_tec_nodal proc~open_file open_file proc~write_file~4->proc~open_file proc~setup_file~2 setup_file proc~write_file~4->proc~setup_file~2 write_file_vtk write_file_vtk proc~write_file~4->write_file_vtk write_file_tec write_file_tec proc~write_file~4->write_file_tec proc~close_file->debugcall proc~open_file->debugcall proc~setup_file~2->debugcall

Called by

proc~~dump_data~~CalledByGraph proc~dump_data dump_data proc~checkpoint checkpoint proc~checkpoint->proc~dump_data proc~setup_solver setup_solver proc~setup_solver->proc~checkpoint proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~checkpoint program~main main program~main->proc~iterate_one_more_time_step proc~start_run start_run program~main->proc~start_run proc~start_run->proc~setup_solver

Contents

Source Code

dump_data

Source Code

    subroutine dump_data(files, qp, nodes, control, scheme, dims)
      !< Call to write save files in the directory
      implicit none
      type(filetype), intent(inout) :: files
      type(extent), intent(in) :: dims
      type(controltype), intent(in) :: control
      type(schemetype), intent(in) :: scheme
      type(nodetype), dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3), intent(in) :: nodes
      real(wp), dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+2, 1:dims%n_var), intent(in) :: qp

      DebugCall('dump_solution: dump_data')
      write(files%restartfile, '(A,I2.2)') trim(dump_dirname)//'/restart/process_',process_id
      write(files%outfile, '(A,I2.2)') trim(dump_dirname)//'/process_',process_id
      call write_restart_log(files, scheme, control)
      call write_file(files, qp, nodes, control, scheme, dims)

    end subroutine dump_data