register_full_3d Subroutine

private subroutine register_full_3d(reg, tag, arr)

Register a rank-3 field as a FULL local array (interior + ghosts) — ng=0 over the total extent. See the ghost-cell policy note in ocean_state_build_restart_registry.

Arguments

Type IntentOptional Attributes Name
type(restart_registry_t), intent(inout) :: reg
character(len=*), intent(in) :: tag
real(kind=wp), intent(in), target :: arr(:,:,:)

Calls

proc~~register_full_3d~~CallsGraph proc~register_full_3d register_full_3d proc~registry_register_3d restart_registry_t%registry_register_3d proc~register_full_3d->proc~registry_register_3d error error proc~registry_register_3d->error to_string to_string proc~registry_register_3d->to_string

Called by

proc~~register_full_3d~~CalledByGraph proc~register_full_3d register_full_3d proc~ocean_state_build_restart_registry ocean_state_build_restart_registry proc~ocean_state_build_restart_registry->proc~register_full_3d proc~ocean_state_restart_read ocean_state_restart_read proc~ocean_state_restart_read->proc~ocean_state_build_restart_registry proc~ocean_state_restart_write ocean_state_restart_write proc~ocean_state_restart_write->proc~ocean_state_build_restart_registry proc~ocean_state_restart_write_drop_field ocean_state_restart_write_drop_field proc~ocean_state_restart_write_drop_field->proc~ocean_state_build_restart_registry proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_state_restart_write proc~engine_setup engine_setup proc~driver_run_ocean->proc~engine_setup proc~engine_setup->proc~ocean_state_restart_read proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine register_full_3d(reg, tag, arr)
      !! Register a rank-3 field as a FULL local array (interior +
      !! ghosts) — ng=0 over the total extent.  See the ghost-cell
      !! policy note in `ocean_state_build_restart_registry`.
      type(restart_registry_t), intent(inout) :: reg
      character(len=*), intent(in) :: tag
      real(wp), target, intent(in) :: arr(:, :, :)
      call reg%register_3d(tag, arr, 0, size(arr, 1), size(arr, 2))
   end subroutine register_full_3d