restart_mismatch_status_code Function

private pure function restart_mismatch_status_code(code) result(status_code)

Map the check-decomp ierr code (INTERNAL 1/2/3 convention) onto the PUBLIC, collision-free OCEAN_STATUS_ERR_RESTART_* codes returned through ocean_state_restart_read’s ierr (P0.1 review F4).

Arguments

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

Return Value integer


Called by

proc~~restart_mismatch_status_code~~CalledByGraph proc~restart_mismatch_status_code restart_mismatch_status_code proc~ocean_state_restart_read ocean_state_restart_read proc~ocean_state_restart_read->proc~restart_mismatch_status_code 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_status_code(code) result(status_code)
      !! Map the check-decomp ierr code (INTERNAL 1/2/3 convention) onto
      !! the PUBLIC, collision-free `OCEAN_STATUS_ERR_RESTART_*` codes
      !! returned through `ocean_state_restart_read`'s `ierr` (P0.1
      !! review F4).
      integer, intent(in) :: code
      integer :: status_code
      select case (code)
      case (1)
         status_code = OCEAN_STATUS_ERR_RESTART_SCHEMA
      case (2)
         status_code = OCEAN_STATUS_ERR_RESTART_DECOMP
      case (3)
         status_code = OCEAN_STATUS_ERR_RESTART_GRID
      case default
         status_code = OCEAN_STATUS_ERR_RESTART_GRID
      end select
   end function restart_mismatch_status_code