ocean_remap_merge_vanished_content Subroutine

public pure subroutine ocean_remap_merge_vanished_content(nz, h_col, q_col)

Public test shim over the included rdb_vl_merge_content — the ONE definition of the vanished-layer content rule (src/shared_module_utilities/rdb_vanished_layer.inc). Production code calls the included copy directly; this exists so tests/test_ocean_remap_vanished.F90 can assert the rule’s own properties without a second transcription of it.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nz
real(kind=wp), intent(in) :: h_col(NZ_STACK_MAX)
real(kind=wp), intent(inout) :: q_col(NZ_STACK_MAX)

Calls

proc~~ocean_remap_merge_vanished_content~~CallsGraph proc~ocean_remap_merge_vanished_content ocean_remap_merge_vanished_content rdb_vl_merge_content rdb_vl_merge_content proc~ocean_remap_merge_vanished_content->rdb_vl_merge_content

Source Code

   pure subroutine ocean_remap_merge_vanished_content(nz, h_col, q_col)
      !! Public test shim over the included `rdb_vl_merge_content` — the ONE
      !! definition of the vanished-layer content rule
      !! (`src/shared_module_utilities/rdb_vanished_layer.inc`).  Production
      !! code calls the included copy directly; this exists so
      !! `tests/test_ocean_remap_vanished.F90` can assert the rule's own
      !! properties without a second transcription of it.
      integer, intent(in) :: nz
      real(wp), intent(in) :: h_col(NZ_STACK_MAX)
      real(wp), intent(inout) :: q_col(NZ_STACK_MAX)
      call rdb_vl_merge_content(nz, h_col, q_col)
   end subroutine ocean_remap_merge_vanished_content