ocean_hdiff_tracer_destroy Subroutine

private subroutine ocean_hdiff_tracer_destroy(this)

Type Bound

ocean_hdiff_tracer_t

Arguments

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

Calls

proc~~ocean_hdiff_tracer_destroy~~CallsGraph proc~ocean_hdiff_tracer_destroy ocean_hdiff_tracer_t%ocean_hdiff_tracer_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_hdiff_tracer_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_hdiff_tracer_destroy(this)
      class(ocean_hdiff_tracer_t), intent(inout) :: this
      this%is_init = .false.
      call this%T_centre%destroy()
      call this%F_x_face%destroy()
      call this%F_y_face%destroy()
   end subroutine ocean_hdiff_tracer_destroy