register_full_3d_opt Subroutine

private subroutine register_full_3d_opt(reg, tag, arr)

register_full_3d, but OPTIONAL on read: a checkpoint written before the field was registered still resumes.

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_opt~~CallsGraph proc~register_full_3d_opt register_full_3d_opt proc~registry_register_3d restart_registry_t%registry_register_3d proc~register_full_3d_opt->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_opt~~CalledByGraph proc~register_full_3d_opt register_full_3d_opt proc~ocean_state_build_restart_registry ocean_state_build_restart_registry proc~ocean_state_build_restart_registry->proc~register_full_3d_opt 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_opt(reg, tag, arr)
      !! `register_full_3d`, but OPTIONAL on read: a checkpoint written
      !! before the field was registered still resumes.
      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), optional=.true.)
   end subroutine register_full_3d_opt