ocean_diag_is_registered Function

private pure function ocean_diag_is_registered(this, name) result(yes)

.true. iff a diagnostic named name is registered (enabled or not). Registration state only — says nothing about whether it will actually fire (see enabled); a disabled diagnostic is still registered and this returns .true. for it.

Type Bound

ocean_diag_t

Arguments

Type IntentOptional Attributes Name
class(ocean_diag_t), intent(in) :: this
character(len=*), intent(in) :: name

Return Value logical


Called by

proc~~ocean_diag_is_registered~~CalledByGraph proc~ocean_diag_is_registered ocean_diag_t%ocean_diag_is_registered proc~apply_diag_selection apply_diag_selection proc~apply_diag_selection->proc~ocean_diag_is_registered proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~apply_diag_selection proc~engine_setup engine_setup 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

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   pure function ocean_diag_is_registered(this, name) result(yes)
      !! `.true.` iff a diagnostic named `name` is registered (enabled or
      !! not).  Registration state only — says nothing about whether it
      !! will actually fire (see `enabled`); a `disable`d diagnostic is
      !! still registered and this returns `.true.` for it.
      class(ocean_diag_t), intent(in) :: this
      character(len=*), intent(in) :: name
      logical :: yes
      integer :: i
      yes = .false.
      do i = 1, this%nvars
         if (trim(this%vars(i)%name) == trim(name)) then
            yes = .true.
            return
         end if
      end do
   end function ocean_diag_is_registered