RestartBlocking Subroutine

public subroutine RestartBlocking(Iter)

Arguments

Type IntentOptional Attributes Name
integer :: Iter

Source Code

    SUBROUTINE RestartBlocking(Iter)
        INTEGER :: Iter

        StartBlockIter = 0
        StartBlockIter = Iter + StepsSft
        ! ChangeVars gets called at the end of the run, wont actually start until the next iteration.

        TotNoBlockSizes = 0
        IF (tBlockEveryIteration) THEN
            TotNoBlockSizes = FLOOR((LOG10(REAL(NMCyc - StartBlockIter, dp))) / (LOG10(2.0_dp)))
        ELSE
            TotNoBlockSizes = FLOOR((LOG10((REAL(NMCyc - StartBlockIter, dp)) / (REAL(StepsSft, dp)))) / (LOG10(2.0_dp)))
        end if

        if (allocated(CurrBlockSum)) CurrBlockSum(:) = 0.0_dp
        if (allocated(BlockSum)) BlockSum(:) = 0.0_dp
        if (allocated(BlockSqrdSum)) BlockSqrdSum(:) = 0.0_dp

    END SUBROUTINE RestartBlocking