save_step_backup Subroutine

subroutine save_step_backup(fields, species, energy, transport, stats, time, dt, chemistry_accum_dt, backup)

Arguments

Type IntentOptional Attributes Name
type(flow_fields_t), intent(in) :: fields
type(species_fields_t), intent(in) :: species
type(energy_fields_t), intent(in) :: energy
type(transport_properties_t), intent(in) :: transport
type(solver_stats_t), intent(in) :: stats
real(kind=rk), intent(in) :: time
real(kind=rk), intent(in) :: dt
real(kind=rk), intent(in) :: chemistry_accum_dt
type(step_backup_t), intent(inout) :: backup

Source Code

   subroutine save_step_backup(fields, species, energy, transport, stats, time, dt, chemistry_accum_dt, backup)
      type(flow_fields_t), intent(in) :: fields
      type(species_fields_t), intent(in) :: species
      type(energy_fields_t), intent(in) :: energy
      type(transport_properties_t), intent(in) :: transport
      type(solver_stats_t), intent(in) :: stats
      real(rk), intent(in) :: time, dt, chemistry_accum_dt
      type(step_backup_t), intent(inout) :: backup

      backup%fields = fields
      backup%species = species
      backup%energy = energy
      backup%transport = transport
      backup%stats = stats
      backup%time = time
      backup%dt = dt
      backup%chemistry_accum_dt = chemistry_accum_dt
      backup%valid = .true.
   end subroutine save_step_backup