diag_mask_global Function

public function diag_mask_global(grid) result(m)

Whole-grid mask — all weights = 1. Equivalent to “no mask”; exists for explicit registration and global-integral tests.

Arguments

Type IntentOptional Attributes Name
type(hgrid_t), intent(in) :: grid

Return Value type(diag_mask_t)


Calls

proc~~diag_mask_global~~CallsGraph proc~diag_mask_global diag_mask_global proc~recompute_total_area recompute_total_area proc~diag_mask_global->proc~recompute_total_area

Called by

proc~~diag_mask_global~~CalledByGraph proc~diag_mask_global diag_mask_global 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

   function diag_mask_global(grid) result(m)
      !! Whole-grid mask — all weights = 1. Equivalent to "no mask";
      !! exists for explicit registration and global-integral tests.
      type(hgrid_t), intent(in) :: grid
      type(diag_mask_t) :: m
      m%name = "global"
      m%nx = grid%nx_total
      m%ny = grid%ny_total
      allocate (m%weight(m%nx, m%ny), source=1.0_wp)
      call recompute_total_area(m, grid%dx, grid%dy)
   end function diag_mask_global