reset_periodic_shell_mean_plan Subroutine

public subroutine reset_periodic_shell_mean_plan(plan)

Arguments

Type IntentOptional Attributes Name
type(periodic_shell_mean_plan_type), intent(inout) :: plan

Called by

proc~~reset_periodic_shell_mean_plan~~CalledByGraph proc~reset_periodic_shell_mean_plan reset_periodic_shell_mean_plan proc~build_periodic_shell_mean_plan build_periodic_shell_mean_plan proc~build_periodic_shell_mean_plan->proc~reset_periodic_shell_mean_plan proc~core_complete_plan_impl core_complete_plan_impl proc~core_complete_plan_impl->proc~build_periodic_shell_mean_plan proc~core_build_panel_plan_impl core_build_panel_plan_impl proc~core_build_panel_plan_impl->proc~core_complete_plan_impl proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~core_complete_plan_impl

Source Code

  subroutine reset_periodic_shell_mean_plan(plan)
    type(periodic_shell_mean_plan_type), intent(inout) :: plan

    if (allocated(plan%value)) deallocate (plan%value)
    if (allocated(plan%slope)) deallocate (plan%slope)
    plan%ready = .false.
    plan%nz = 0_i32
    plan%z0 = 0.0_dp
    plan%dz = 0.0_dp
  end subroutine reset_periodic_shell_mean_plan