setup_failed Function

private pure function setup_failed(ierr) result(bad)

.true. iff ierr is present and non-OK — the “shall I return early” test used after every ierr-threaded call in engine_setup. When ierr is absent the callee already error stopped on failure, so this is always .false. here.

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: ierr

Return Value logical


Called by

proc~~setup_failed~~CalledByGraph proc~setup_failed setup_failed proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~setup_failed proc~engine_setup engine_setup proc~engine_setup->proc~setup_failed proc~engine_setup->proc~engine_configure_diag 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 setup_failed(ierr) result(bad)
      !! `.true.` iff `ierr` is present and non-OK — the "shall I
      !! return early" test used after every ierr-threaded call in
      !! `engine_setup`. When `ierr` is absent the callee already
      !! `error stop`ped on failure, so this is always `.false.` here.
      integer, intent(in), optional :: ierr
      logical :: bad
      bad = .false.
      if (present(ierr)) bad = (ierr /= OCEAN_STATUS_OK)
   end function setup_failed