FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(gs2_program_state_type), | intent(inout) | :: | state |
subroutine prepare_profiles_overrides(state)
use overrides, only: init_profiles_overrides
use gs2_init, only: init, init_level_list
use species, only: nspec
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_profiles-1)
call init_profiles_overrides(state%init%prof_ov, nspec)
end subroutine prepare_profiles_overrides