destroy_fsal_cache Subroutine

private subroutine destroy_fsal_cache(me)

Destructor for the FSAL variables.

Type Bound

rk_variable_step_fsal_class

Arguments

Type IntentOptional Attributes Name
class(rk_variable_step_fsal_class), intent(inout) :: me

Called by

proc~~destroy_fsal_cache~~CalledByGraph proc~destroy_fsal_cache rklib_module::rk_variable_step_fsal_class%destroy_fsal_cache proc~begin_integration_rk_variable_step_class rklib_module::rk_variable_step_class%begin_integration_rk_variable_step_class proc~begin_integration_rk_variable_step_class->proc~destroy_fsal_cache proc~integrate_to_event_variable_step rklib_module::rk_variable_step_class%integrate_to_event_variable_step proc~integrate_to_event_variable_step->proc~begin_integration_rk_variable_step_class proc~integrate_variable_step rklib_module::rk_variable_step_class%integrate_variable_step proc~integrate_variable_step->proc~begin_integration_rk_variable_step_class program~rklib_example rklib_example program~rklib_example->proc~integrate_variable_step

Source Code

    subroutine destroy_fsal_cache(me)
        class(rk_variable_step_fsal_class),intent(inout) :: me
        if (allocated(me%t_saved)) deallocate(me%t_saved)
        if (allocated(me%x_saved)) deallocate(me%x_saved)
        if (allocated(me%f_saved)) deallocate(me%f_saved)
    end subroutine destroy_fsal_cache