[ci skip] some clean-up in mag braking test case

Author: Matthias Fabry

star/public/star_lib.f90

@@ -895,7 +895,7 @@ end subroutine star_set_u_flag
       ! simply adds or removes; doesn't reconverge the model.
       subroutine star_set_rotation_flag(id, rotation_flag, ierr)
          use set_flags, only: set_rotation_flag
-         use hydro_rotation, only: set_rotation_info, set_i_rot
+         use hydro_rotation, only: set_rotation_info
          integer, intent(in) :: id
          logical, intent(in) :: rotation_flag
          integer, intent(out) :: ierr

star/test_suite/magnetic_braking/inlist_braking

@@ -38,7 +38,7 @@
 
 &kap
 
-   use_type2_opacities = .true
+   use_type2_opacities = .true.
    Zbase = 1d-2
 
 / ! end of kap namelist
@@ -118,216 +118,3 @@
 
 
 / ! end of controls namelist
-
-
-&pgstar
-    !pause = .true.
-      !pgstar_show_log_age_in_years = .true.
-      pgstar_show_age_in_years = .true.
-      ! if true, the code waits for user to enter a RETURN on the command line
-
-      file_white_on_black_flag = .true.
-      win_white_on_black_flag = .true.
-
-         Grid2_win_flag = .true.
-         Grid2_num_cols = 10 ! divide plotting region into this many equal width cols
-         Grid2_num_plots =7
-         Grid2_num_rows =8
-         Grid2_win_width = 16
-         !Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width
-         Grid2_xleft = 0.01 ! fraction of full window width for margin on left
-         Grid2_xright = 0.99 ! fraction of full window width for margin on right
-         Grid2_ybot = 0.12 ! fraction of full window width for margin on bottom
-         Grid2_ytop = 0.95 ! fraction of full window width for margin on top
-         show_TRho_Profile_eos_regions = .true.
-
-         !Grid2_file_flag = .true.
-         Grid2_file_dir = 'png'
-         Grid2_file_prefix = 'Grid2'
-         Grid2_file_interval = 1
-
-         Grid2_file_width = 18
-
-         !Grid2_file_aspect_ratio = 0.7
-
-
-
-        Grid2_plot_name(1) = 'TRho_Profile'
-        Grid2_plot_row(1) = 1
-        Grid2_plot_rowspan(1) =5
-        Grid2_plot_col(1) = 1
-        Grid2_plot_colspan(1) = 4
-        Grid2_plot_pad_left(1) = 0.02
-        Grid2_plot_pad_right(1) = 0.0
-        Grid1_plot_pad_top(1) = 0.0
-        Grid2_plot_pad_bot(1) = 0.15
-        Grid2_txt_scale_factor(1) = 0.5
-
-         Grid2_plot_name(2) = 'HR'
-         Grid2_plot_row(2) = 5
-         Grid2_plot_rowspan(2) = 3
-         Grid2_plot_col(2) = 1
-         Grid2_plot_colspan(2) = 2
-
-         Grid2_plot_pad_left(2) = 0.04
-         Grid2_plot_pad_right(2) = 0.02
-         Grid2_plot_pad_top(2) = 0.04
-         Grid2_plot_pad_bot(2) = 0.00
-         Grid2_txt_scale_factor(2) = 0.5
-
-
-         Grid2_plot_name(3) = 'Abundance'
-         Grid2_plot_row(3) = 1
-         Grid2_plot_rowspan(3) = 4
-         Grid2_plot_col(3) = 5
-         Grid2_plot_colspan(3) = 3
-
-
-         Grid2_plot_pad_left(3) = 0.09
-         Grid2_plot_pad_right(3) = 0.00
-         Grid2_plot_pad_top(3) = 0.00
-         Grid2_plot_pad_bot(3) = 0.05
-         Grid2_txt_scale_factor(3) = 0.5
-         Abundance_legend_max_cnt = 0
-         Abundance_legend_txt_scale_factor =0.5
-
-
-         show_TRho_annotation1 = .true.
-         show_TRho_annotation2 = .true.
-         show_TRho_annotation3 = .true.
-         show_TRho_degeneracy_line = .true.
-
-
-         Grid2_plot_name(4) = 'Text_Summary1'
-         Grid2_plot_row(4) = 7
-         Grid2_plot_rowspan(4) = 2
-         Grid2_plot_col(4) = 1
-         Grid2_plot_colspan(4) = 7
-         Grid2_plot_pad_left(4) = 0.0
-         Grid2_plot_pad_right(4) = 0.0
-         Grid2_plot_pad_top(4) = 0.2
-         Grid2_plot_pad_bot(4) = -0.1
-         Grid2_txt_scale_factor(4) = 0.18
-         Text_Summary1_num_rows = 4 ! <= 20
-   Text_Summary1_num_cols = 4 ! <= 20
-   Text_Summary1_name(:,:) = ''
-
-   Text_Summary1_name(1,1) = 'time_step'
-   Text_Summary1_name(1,2) = 'surf_avg_v_rot'
-   Text_Summary1_name(1,3) = 'surf_avg_v_div_v_crit'
-   Text_Summary1_name(1,4) = 'star_mass'
-
-         Text_Summary1_name(2,1) = 'num_zones'
-         Text_Summary1_name(2,2) = 'star_mdot'
-          Text_Summary1_name(2,3) = 'star_age'
-           Text_Summary1_name(2,4) = 'model_number'
-
-           Text_Summary1_name(3,1) = 'log_total_angular_momentum'
-
-
-
-
-
-
-
-
-        Grid2_plot_name(5) = 'History_Panels1'
-  Grid2_plot_row(5) = 1
-  Grid2_plot_rowspan(5) = 9
-  Grid2_plot_col(5) = 8
-  Grid2_plot_colspan(5) = 3
-  Grid2_plot_pad_left(5) = 0.075
-  Grid2_plot_pad_right(5) = 0.04
-  Grid2_plot_pad_top(5) = 0.0
-  Grid2_plot_pad_bot(5) = 0.05
-  Grid2_txt_scale_factor(5) = 0.5
-
-        History_Panels1_num_panels = 4
-
-        History_Panels1_xaxis_name = 'model_number'
-        History_Panels1_yaxis_name(1) = 'log_total_angular_momentum'
-        History_Panels1_yaxis_reversed(1) = .false.
-        History_Panels1_ymin(1) = 48d0
-        History_Panels1_ymax(1) = -101d0
-       History_Panels1_max_width = 500
-        History_Panels1_dymin(1) = -1
-        History_Panels1_other_yaxis_name(1) = 'log_R'
-        History_Panels1_other_yaxis_reversed(1) = .false.
-        History_Panels1_other_ymin(1) = -101d0
-        History_Panels1_other_ymax(1) = -101d0
-        History_Panels1_other_dymin(1) = -1
-
-
-
-        History_Panels1_yaxis_name(2) = 'surf_avg_v_rot'
-        History_Panels1_yaxis_reversed(2) = .false.
-        History_Panels1_ymin(2) = -101d0
-        History_Panels1_ymax(2) = -101d0
-        History_Panels1_dymin(2) = -1
-        History_Panels1_other_yaxis_name(2) = 'surf_avg_v_div_v_crit'
-        History_Panels1_other_yaxis_reversed(2) = .false.
-        History_Panels1_other_ymin(2) = -101d0
-        History_Panels1_other_ymax(2) = -101d0
-        History_Panels1_other_dymin(2) = -1
-
-
-        History_Panels1_yaxis_name(3) = 'star_mdot'
-        History_Panels1_yaxis_reversed(3) = .false.
-        History_Panels1_ymin(3) = -101d0
-        History_Panels1_ymax(3) = -101d0
-        History_Panels1_dymin(3) = -1
-        History_Panels1_other_yaxis_name(3) = ''
-        History_Panels1_other_yaxis_reversed(3) = .false.
-        History_Panels1_other_ymin(3) = -101d0
-        History_Panels1_other_ymax(3) = -101d0
-        History_Panels1_other_dymin(3) = -1
-
-        History_Panels1_yaxis_name(4) = 'log_L'
-        History_Panels1_yaxis_reversed(4) = .false.
-        History_Panels1_ymin(4) = -101d0
-        History_Panels1_ymax(4) = -101d0
-        History_Panels1_dymin(4) = -1
-        History_Panels1_other_yaxis_name(4) =  'log_L_div_Ledd' ! These are for profiles -> 'conv_L_div_L' ! 'log_Lrad_div_Ledd' ! 'log_L_div_Ledd'
-        History_Panels1_other_yaxis_reversed(4) = .false.
-        History_Panels1_other_ymin(4) = -101d0
-        History_Panels1_other_ymax(4) = -101d0
-        History_Panels1_other_dymin(4) = -1
-
-
-
-        Grid2_plot_name(6) = 'Kipp'
-        Grid2_plot_row(6) = 5
-        Grid2_plot_rowspan(6) = 5
-        Grid2_plot_col(6) = 5
-        Grid2_plot_colspan(6) = 4
-        Grid2_plot_pad_left(6) = 0.1
-        Grid2_plot_pad_right(6) = 0.1
-        Grid1_plot_pad_top(6) = 0.2
-        Grid2_plot_pad_bot(6) = 0.2
-        Grid2_txt_scale_factor(6) = 0.5
-
-
-
-
-
-
-         Grid2_plot_name(7) = 'Profile_Panels1'
-         Grid2_plot_row(7) =5
-         Grid2_plot_rowspan(7) =3
-         Grid2_plot_col(7) =3
-         Grid2_plot_colspan(7) = 2
-         Profile_Panels1_num_panels = 1
-         Profile_Panels1_xaxis_name = 'mass'
-         Profile_Panels1_yaxis_name(1) = 'omega'
-         !Profile_Panels1_other_yaxis_name(1) = 'engulfment_heating'
-         Profile_Panels1_other_ymin(:) = -101 ! only used if /= -101d0
-         Profile_Panels1_other_ymax(:) = -101 ! only used if /= -101d0
-
-
-         Grid2_plot_pad_left(7) = 0.04
-         Grid2_plot_pad_right(7) = 0.02
-         Grid2_plot_pad_top(7) = 0.04
-         Grid2_plot_pad_bot(7) = 0.00
-         Grid2_txt_scale_factor(7) = 0.4
-
-/ ! end of pgstar namelist