tem_convergence_reset Subroutine

public subroutine tem_convergence_reset(me)

This routine resets convergence lastState and nChecks

Arguments

Type IntentOptional Attributes Name
type(tem_convergence_type), intent(inout) :: me(:)

convergence descriptions


Calls

proc~~tem_convergence_reset~~CallsGraph proc~tem_convergence_reset tem_convergence_reset proc~tem_timecontrol_reset_trigger tem_timeControl_reset_trigger proc~tem_convergence_reset->proc~tem_timecontrol_reset_trigger

Called by

proc~~tem_convergence_reset~~CalledByGraph proc~tem_convergence_reset tem_convergence_reset proc~tem_simcontrol_steadystate_reset tem_simControl_steadyState_reset proc~tem_simcontrol_steadystate_reset->proc~tem_convergence_reset

Contents

Source Code


Source Code

  subroutine tem_convergence_reset( me )
    ! -------------------------------------------------------------------- !
    !> convergence descriptions
    type(tem_convergence_type),intent(inout) :: me(:)
    ! -------------------------------------------------------------------- !
    integer :: iConv
    ! -------------------------------------------------------------------- !
    do iConv = 1, size(me)
      me(iConv)%nChecks = 0
      me(iConv)%lastState = huge( me(iConv)%lastState(1,1) )          &
        &                 / real( me(iConv)%header%nLastVals, kind=rk )
      call tem_timeControl_reset_trigger(me(iConv)%header%timeControl)
    end do

  end subroutine tem_convergence_reset