tide_name_index Function

public pure function tide_name_index(name) result(idx)

Catalog index (1..TIDES_CATALOG_SIZE) of a constituent name, matched case-insensitively; -1 if unknown.

Arguments

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

Return Value integer


Calls

proc~~tide_name_index~~CallsGraph proc~tide_name_index tide_name_index proc~upcase2 upcase2 proc~tide_name_index->proc~upcase2

Called by

proc~~tide_name_index~~CalledByGraph proc~tide_name_index tide_name_index proc~parse_constituent_list parse_constituent_list proc~parse_constituent_list->proc~tide_name_index proc~configure_ocean_tides configure_ocean_tides proc~configure_ocean_tides->proc~parse_constituent_list proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_tides 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 :: c
character(len=2), private :: up

Source Code

   pure function tide_name_index(name) result(idx)
      !! Catalog index (1..TIDES_CATALOG_SIZE) of a constituent name,
      !! matched case-insensitively; -1 if unknown.
      character(len=*), intent(in) :: name
      integer :: idx
      integer :: c
      character(len=2) :: up
      up = upcase2(adjustl(name))
      idx = -1
      do c = 1, TIDES_CATALOG_SIZE
         if (up == TIDE_NAME(c)) then
            idx = c
            return
         end if
      end do
   end function tide_name_index