set_profiles_overrides Subroutine

private subroutine set_profiles_overrides(prof_ov)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(profiles_overrides_type), intent(in) :: prof_ov

Contents

Source Code

set_profiles_overrides

Source Code

  subroutine set_profiles_overrides(prof_ov)
    use overrides, only: profiles_overrides_type
    use unit_tests, only: debug_message
    type(profiles_overrides_type), intent(in) :: prof_ov
    call debug_message(3, 'dist_fn::set_overrides starting')
    if (prof_ov%override_g_exb) g_exb = prof_ov%g_exb
    if (prof_ov%override_mach) mach = prof_ov%mach
  end subroutine set_profiles_overrides