coord_remap_proc Subroutine

public subroutine coord_remap_proc(coord, remap)

Return the default remap procedure pointer for an output vgrid. Used by the registration path to attach the right conservative remap when a diagnostic selects a non-layer output coordinate. Null for LAYER / unknown (no remap needed).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: coord
procedure(diag_remap_proc), intent(out), pointer :: remap

Called by

proc~~coord_remap_proc~~CalledByGraph proc~coord_remap_proc coord_remap_proc proc~register_derived register_derived proc~register_derived->proc~coord_remap_proc proc~register_one_canonical register_one_canonical proc~register_one_canonical->proc~coord_remap_proc proc~apply_diag_selection apply_diag_selection proc~apply_diag_selection->proc~register_derived proc~register_default_diags register_default_diags proc~apply_diag_selection->proc~register_default_diags proc~register_default_diags->proc~register_one_canonical proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~apply_diag_selection proc~engine_setup engine_setup proc~engine_setup->proc~engine_configure_diag proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup

Source Code

   subroutine coord_remap_proc(coord, remap)
      !! Return the default remap procedure pointer for an output vgrid.
      !! Used by the registration path to attach the right conservative
      !! remap when a diagnostic selects a non-layer output coordinate.
      !! Null for LAYER / unknown (no remap needed).
      integer, intent(in) :: coord
      procedure(diag_remap_proc), pointer, intent(out) :: remap
      select case (coord)
      case (DIAG_VGRID_Z_FIXED)
         remap => remap_layer_to_z
      case (DIAG_VGRID_SIGMA)
         remap => remap_layer_to_sigma
      case (DIAG_VGRID_ZSTAR)
         remap => remap_layer_to_zstar
      case (DIAG_VGRID_DENSITY)
         remap => remap_layer_to_density
      case default
         remap => null()
      end select
   end subroutine coord_remap_proc