apply_old_defaults Subroutine

public subroutine apply_old_defaults(gs2_diagnostics_config_in)

Set values according to the old diagnostics defaults.

Will overwrite existing values, unless the config object has already been initialised, in which case returns without changing any values

Arguments

Type IntentOptional Attributes Name
type(gs2_diagnostics_config_type), intent(inout) :: gs2_diagnostics_config_in

Contents

Source Code

apply_old_defaults

Source Code

  subroutine apply_old_defaults(gs2_diagnostics_config_in)
    type(gs2_diagnostics_config_type), intent(inout) :: gs2_diagnostics_config_in

    if (gs2_diagnostics_config_in%is_initialised()) return

    gs2_diagnostics_config_in%navg = 100
    gs2_diagnostics_config_in%nmovie = 1000
    gs2_diagnostics_config_in%nwrite = 100
    gs2_diagnostics_config_in%ob_midplane = .true.
    gs2_diagnostics_config_in%omegatinst = 1.0
    gs2_diagnostics_config_in%print_line = .true.
    gs2_diagnostics_config_in%write_correlation = .false.
    gs2_diagnostics_config_in%write_moments = .false.
  end subroutine apply_old_defaults