ocean_vert_adv_destroy Subroutine

private subroutine ocean_vert_adv_destroy(this)

Type Bound

ocean_vertical_advection_t

Arguments

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

Calls

proc~~ocean_vert_adv_destroy~~CallsGraph proc~ocean_vert_adv_destroy ocean_vertical_advection_t%ocean_vert_adv_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_vert_adv_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_vert_adv_destroy(this)
      class(ocean_vertical_advection_t), intent(inout) :: this
      this%is_init = .false.
      call this%F_face%destroy()
   end subroutine ocean_vert_adv_destroy