restart_mismatch_kind Function

private pure function restart_mismatch_kind(code) result(kind)

Map the check-decomp ierr code (INTERNAL 1/2/3 convention — see ocean_restart_check_decomp) to a human-readable kind for the legacy error stop message.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: code

Return Value character(len=:), allocatable


Called by

proc~~restart_mismatch_kind~~CalledByGraph proc~restart_mismatch_kind restart_mismatch_kind proc~ocean_state_restart_read ocean_state_restart_read proc~ocean_state_restart_read->proc~restart_mismatch_kind proc~engine_setup 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_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean 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

   pure function restart_mismatch_kind(code) result(kind)
      !! Map the check-decomp ierr code (INTERNAL 1/2/3 convention —
      !! see `ocean_restart_check_decomp`) to a human-readable kind for
      !! the legacy `error stop` message.
      integer, intent(in) :: code
      character(len=:), allocatable :: kind
      select case (code)
      case (1)
         kind = "schema-version"
      case (2)
         kind = "decomposition"
      case (3)
         kind = "grid/vcoord/tracer"
      case default
         kind = "unknown"
      end select
   end function restart_mismatch_kind