This routine resets convergence lastState and nChecks
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_convergence_type), | intent(inout) | :: | me(:) |
convergence descriptions |
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