write_initial_resnorm Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. write_initial_resnorm

private subroutine write_initial_resnorm(files, control)

Writing Initial resnorom in the log file to maintian continuity of resnorm while restrarting

Arguments

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

Called by

proc~~write_initial_resnorm~~CalledByGraph proc~write_initial_resnorm write_initial_resnorm proc~write_restart_log write_restart_log proc~write_restart_log->proc~write_initial_resnorm proc~dump_data dump_data proc~dump_data->proc~write_restart_log 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

write_initial_resnorm

Source Code

    subroutine write_initial_resnorm(files, control)
      !< Writing Initial resnorom in the log file to 
      !< maintian continuity of resnorm while restrarting
      implicit none
      type(filetype), intent(in) :: files
      type(controltype), intent(in) :: control
      integer :: i
      write(files%RESTART_FILE_UNIT, '(I0)')    control%current_iter+control%last_iter
      do i = 1,control%n_var+1
        write(files%RESTART_FILE_UNIT, '(f0.16)')  control%previous_res(i)
      end do
    end subroutine write_initial_resnorm