registry_clear Subroutine

private subroutine registry_clear(this)

Type Bound

restart_registry_t

Arguments

Type IntentOptional Attributes Name
class(restart_registry_t), intent(inout) :: this

Called by

proc~~registry_clear~~CalledByGraph proc~registry_clear restart_registry_t%registry_clear proc~ocean_state_build_restart_registry ocean_state_build_restart_registry proc~ocean_state_build_restart_registry->proc~registry_clear 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

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   subroutine registry_clear(this)
      class(restart_registry_t), intent(inout) :: this
      integer :: i
      do i = 1, this%n
         this%entries(i)%p0 => null()
         this%entries(i)%p2 => null()
         this%entries(i)%p3 => null()
         this%entries(i)%tag = ""
         this%entries(i)%rank = 0
         this%entries(i)%optional = .false.
         this%entries(i)%device_mapped = .true.
         this%entries(i)%found = .false.
      end do
      this%n = 0
   end subroutine registry_clear