setup_dynamic_core Subroutine

public subroutine setup_dynamic_core()

Uses

Arguments

None

Source Code

    subroutine setup_dynamic_core()
        use CalcData, only: tDynamicCoreSpace, coreSpaceUpdateCycle, tIntervalSet
        use adi_data, only: tAllDoubsInitiators
        implicit none

        ! Enable dynamic corespace if both
        ! a) using adi with dynamic SIs (default)
        ! b) no other keywords regarding the dynamic corespace are given
        if (SIUpdateInterval > 0 .and. .not. tIntervalSet .and. tAllDoubsInitiators) then
            tDynamicCoreSpace = .true.
            coreSpaceUpdateCycle = SIUpdateInterval
        end if
    end subroutine setup_dynamic_core