diag_mask_destroy Subroutine

public subroutine diag_mask_destroy(this)

Arguments

Type IntentOptional Attributes Name
type(diag_mask_t), intent(inout) :: this

Called by

proc~~diag_mask_destroy~~CalledByGraph proc~diag_mask_destroy diag_mask_destroy proc~ocean_budgets_destroy ocean_budgets_t%ocean_budgets_destroy proc~ocean_budgets_destroy->proc~diag_mask_destroy proc~ocean_budgets_set_mask ocean_budgets_t%ocean_budgets_set_mask proc~ocean_budgets_set_mask->proc~diag_mask_destroy proc~ocean_diag_destroy ocean_diag_t%ocean_diag_destroy proc~ocean_diag_destroy->proc~diag_mask_destroy

Source Code

   subroutine diag_mask_destroy(this)
      type(diag_mask_t), intent(inout) :: this
      if (allocated(this%weight)) deallocate (this%weight)
      this%nx = 0
      this%ny = 0
      this%total_area = 0.0_wp
      this%name = ""
   end subroutine diag_mask_destroy