scenario_update Subroutine

public subroutine scenario_update(me, sim)

Arguments

Type IntentOptional Attributes Name
type(strand_t), intent(inout) :: me
type(simulation_t), intent(in) :: sim

Calls

proc~~scenario_update~~CallsGraph proc~scenario_update scenario_update proc~compute_effective_field compute_effective_field proc~scenario_update->proc~compute_effective_field proc~signal_v0d signal_t%signal_v0d proc~scenario_update->proc~signal_v0d proc~signal_v1d signal_t%signal_v1d proc~scenario_update->proc~signal_v1d dfloat dfloat proc~compute_effective_field->dfloat proc~material_critical_current_density material_t%material_critical_current_density proc~compute_effective_field->proc~material_critical_current_density proc~material_critical_field material_t%material_critical_field proc~compute_effective_field->proc~material_critical_field proc~material_critical_temperature material_t%material_critical_temperature proc~compute_effective_field->proc~material_critical_temperature proc~material_strain material_t%material_strain proc~compute_effective_field->proc~material_strain proc~set_error set_error proc~compute_effective_field->proc~set_error proc~signal_v0d->proc~signal_v1d

Called by

proc~~scenario_update~~CalledByGraph proc~scenario_update scenario_update proc~main_loop main_loop proc~main_loop->proc~scenario_update program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine scenario_update(me,sim)
  type(strand_t), intent(inout) :: me
  type(simulation_t), intent(in) :: sim

  me%scen%Q_ext   = me%scen%Q_ext_load%v1d()
  me%scen%Bfield  = me%scen%Bfield_load%v1d()
  me%scen%dBfield = me%scen%dBfield_load%v1d()
  me%scen%ElCur   = me%scen%ElCur_load%v0d()

  call compute_effective_field(me)
  if (sim_error > 0) return
end subroutine scenario_update