set_line_widths Subroutine

private subroutine set_line_widths(self, width, main_width)

Widths of the grid lines and of the equator and prime meridian (window units; defaults 1 and 3).

Type Bound

LatLonGrid

Arguments

Type IntentOptional Attributes Name
class(LatLonGrid), intent(inout) :: self
real(kind=wp), intent(in) :: width

window units (<= 0: unchanged)
real(kind=wp), intent(in) :: main_width

window units (<= 0: unchanged)

Calls

proc~~set_line_widths~~CallsGraph proc~set_line_widths LatLonGrid%set_line_widths proc~make_grid make_grid proc~set_line_widths->proc~make_grid interface~vkf_switch_create vkf_switch_create proc~make_grid->interface~vkf_switch_create proc~add add proc~make_grid->proc~add proc~append append proc~make_grid->proc~append proc~closed_segments closed_segments proc~make_grid->proc~closed_segments proc~color~2 ReferenceFrame%color proc~make_grid->proc~color~2 proc~line_node line_node proc~make_grid->proc~line_node proc~open_segments open_segments proc~make_grid->proc~open_segments proc~replace ShapeNodes%replace proc~make_grid->proc~replace proc~surface_point surface_point proc~make_grid->proc~surface_point interface~vkf_node_add_child vkf_node_add_child proc~add->interface~vkf_node_add_child interface~vkf_node_delete vkf_node_delete proc~add->interface~vkf_node_delete proc~check_status check_status proc~add->proc~check_status interface~vkf_line_create vkf_line_create proc~line_node->interface~vkf_line_create proc~line_node->proc~check_status proc~line_set_points line_set_points proc~line_node->proc~line_set_points proc~line_set_segments line_set_segments proc~line_node->proc~line_set_segments proc~line_set_style line_set_style proc~line_node->proc~line_set_style interface~vkf_compile_node vkf_compile_node proc~replace->interface~vkf_compile_node proc~replace->interface~vkf_node_add_child proc~replace->interface~vkf_node_delete interface~vkf_node_remove_child vkf_node_remove_child proc~replace->interface~vkf_node_remove_child proc~replace->proc~check_status interface~vkf_line_points vkf_line_points proc~line_set_points->interface~vkf_line_points interface~vkf_line_points_changed vkf_line_points_changed proc~line_set_points->interface~vkf_line_points_changed interface~vkf_line_style vkf_line_style proc~line_set_segments->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_segments->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed

Source Code

    subroutine set_line_widths(self, width, main_width)
        class(LatLonGrid), intent(inout) :: self
        real(wp), intent(in) :: width, main_width           !! window units (<= 0: unchanged)
        if (width > 0.0_wp) self%width_ = width
        if (main_width > 0.0_wp) self%main_width = main_width
        call make_grid(self)
    end subroutine set_line_widths