FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(gs2_program_state_type), | intent(inout) | :: | state |
subroutine prepare_initial_values_overrides(state)
use overrides, only: init_initial_values_overrides
use fields, only: force_maxwell_reinit
use gs2_init, only: init, init_level_list
use gs2_reinit, only: in_memory
use gs2_layouts, only: g_lo
use kt_grids, only: naky, ntheta0
use theta_grid, only: ntgrid
use dist_fn_arrays, only: gexp_3
implicit none
type(gs2_program_state_type), intent(inout) :: state
if (.not. state%included) return
! Initialize to the level below so that overrides are triggered
call init(state%init, init_level_list%override_initial_values-1)
call init_initial_values_overrides(state%init%initval_ov,&
ntgrid, ntheta0, naky, g_lo%llim_proc, g_lo%ulim_alloc, &
force_maxwell_reinit=force_maxwell_reinit, &
in_memory=in_memory, has_explicit_terms = allocated(gexp_3))
end subroutine prepare_initial_values_overrides