get_num_levels_bundle_info Function

public function get_num_levels_bundle_info(info, rc) result(num)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Info), intent(in) :: info(:)
integer, intent(out), optional :: rc

Return Value integer


Calls

proc~~get_num_levels_bundle_info~~CallsGraph proc~get_num_levels_bundle_info get_num_levels_bundle_info ESMF_InfoGet ESMF_InfoGet proc~get_num_levels_bundle_info->ESMF_InfoGet ESMF_InfoGetCharAlloc ESMF_InfoGetCharAlloc proc~get_num_levels_bundle_info->ESMF_InfoGetCharAlloc interface~mapl_assert MAPL_Assert proc~get_num_levels_bundle_info->interface~mapl_assert proc~mapl_return MAPL_Return proc~get_num_levels_bundle_info->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_num_levels_bundle_info->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~get_num_levels_bundle_info~~CalledByGraph proc~get_num_levels_bundle_info get_num_levels_bundle_info proc~test_get_num_levels test_get_num_levels proc~test_get_num_levels->proc~get_num_levels_bundle_info

Source Code

   integer function get_num_levels_bundle_info(info, rc) result(num)
      type(ESMF_Info), intent(in) :: info(:)
      integer, optional, intent(out) :: rc
      integer :: status
      integer :: i, n

      num = 0
      do i=1, size(info)
         n = get_num_levels_info(info(i), _RC)
         num = max(num, n)
         if(n == 0) cycle
         _ASSERT(n == num, 'Fields with vertical levels must have the same number of levels.')
      end do
      _RETURN(_SUCCESS)

   end function get_num_levels_bundle_info