recompute_total_area Subroutine

private subroutine recompute_total_area(this, dx, dy)

Arguments

Type IntentOptional Attributes Name
type(diag_mask_t), intent(inout) :: this
real(kind=wp), intent(in) :: dx
real(kind=wp), intent(in) :: dy

Called by

proc~~recompute_total_area~~CalledByGraph proc~recompute_total_area recompute_total_area proc~diag_mask_bbox diag_mask_bbox proc~diag_mask_bbox->proc~recompute_total_area proc~diag_mask_global diag_mask_global proc~diag_mask_global->proc~recompute_total_area proc~diag_mask_h_section diag_mask_h_section proc~diag_mask_h_section->proc~recompute_total_area proc~diag_mask_v_section diag_mask_v_section proc~diag_mask_v_section->proc~recompute_total_area proc~ocean_budgets_drain_contributors ocean_budgets_t%ocean_budgets_drain_contributors proc~ocean_budgets_drain_contributors->proc~diag_mask_global proc~ocean_budgets_evaluate ocean_budgets_t%ocean_budgets_evaluate proc~ocean_budgets_evaluate->proc~diag_mask_global proc~ocean_budgets_init_snapshot ocean_budgets_t%ocean_budgets_init_snapshot proc~ocean_budgets_init_snapshot->proc~diag_mask_global proc~ocean_budgets_init_snapshot->proc~ocean_budgets_evaluate

Source Code

   subroutine recompute_total_area(this, dx, dy)
      type(diag_mask_t), intent(inout) :: this
      real(wp), intent(in) :: dx, dy
      this%total_area = sum(this%weight)*dx*dy
   end subroutine recompute_total_area