scratch_3d_buffer_destroy Subroutine

private subroutine scratch_3d_buffer_destroy(this)

Type Bound

scratch_3d_buffer_t

Arguments

Type IntentOptional Attributes Name
class(scratch_3d_buffer_t), intent(inout) :: this

Called by

proc~~scratch_3d_buffer_destroy~~CalledByGraph proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~continuity_destroy continuity_t%continuity_destroy proc~continuity_destroy->proc~scratch_3d_buffer_destroy proc~coriolis_adv_destroy coriolis_adv_t%coriolis_adv_destroy proc~coriolis_adv_destroy->proc~scratch_3d_buffer_destroy proc~ocean_bdrag_destroy ocean_bottom_drag_t%ocean_bdrag_destroy proc~ocean_bdrag_destroy->proc~scratch_3d_buffer_destroy proc~ocean_epbl_destroy ocean_epbl_t%ocean_epbl_destroy proc~ocean_epbl_destroy->proc~scratch_3d_buffer_destroy proc~ocean_hdiff_tracer_destroy ocean_hdiff_tracer_t%ocean_hdiff_tracer_destroy proc~ocean_hdiff_tracer_destroy->proc~scratch_3d_buffer_destroy proc~ocean_hvisc_destroy ocean_horizontal_viscosity_t%ocean_hvisc_destroy proc~ocean_hvisc_destroy->proc~scratch_3d_buffer_destroy proc~ocean_lateral_mix_destroy ocean_lateral_mix_t%ocean_lateral_mix_destroy proc~ocean_lateral_mix_destroy->proc~scratch_3d_buffer_destroy proc~ocean_pressure_force_destroy ocean_pressure_force_t%ocean_pressure_force_destroy proc~ocean_pressure_force_destroy->proc~scratch_3d_buffer_destroy proc~ocean_surfstress_destroy ocean_surface_stress_t%ocean_surfstress_destroy proc~ocean_surfstress_destroy->proc~scratch_3d_buffer_destroy proc~ocean_top_drag_destroy ocean_top_drag_t%ocean_top_drag_destroy proc~ocean_top_drag_destroy->proc~scratch_3d_buffer_destroy proc~ocean_vdiff_destroy ocean_vdiff_t%ocean_vdiff_destroy proc~ocean_vdiff_destroy->proc~scratch_3d_buffer_destroy proc~ocean_vert_adv_destroy ocean_vertical_advection_t%ocean_vert_adv_destroy proc~ocean_vert_adv_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine scratch_3d_buffer_destroy(this)
      class(scratch_3d_buffer_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%data)) deallocate (this%data)
      this%n1 = 0
      this%n2 = 0
      this%n3 = 0
      this%name = ""
   end subroutine scratch_3d_buffer_destroy