restore_energy_diagnostics Subroutine

private subroutine restore_energy_diagnostics(energy, diag)

Arguments

Type IntentOptional Attributes Name
type(energy_fields_t), intent(inout) :: energy
real(kind=rk), intent(in) :: diag(12)

Source Code

   subroutine restore_energy_diagnostics(energy, diag)
      type(energy_fields_t), intent(inout) :: energy
      real(rk), intent(in) :: diag(12)

      energy%last_conductive_boundary_flux_out = diag(1)
      energy%last_conductive_boundary_flux_available = nint(diag(2))
      energy%cumulative_boundary_rho_h_advective_flux_out = diag(3)
      energy%cumulative_boundary_rho_h_conductive_flux_out = diag(4)
      energy%cumulative_qrad_integral = diag(5)
      energy%cumulative_rho_species_hdiff_integral = diag(6)
      energy%cumulative_energy_budget_available = nint(diag(7))
      energy%last_energy_update_delta_rate_integral = diag(8)
      energy%last_energy_update_rhs_integral = diag(9)
      energy%last_energy_update_balance_defect = diag(10)
      energy%relative_last_energy_update_balance_defect = diag(11)
      energy%last_operator_consistent_rho_h_integral = diag(12)
   end subroutine restore_energy_diagnostics