add_ungridded_dimensions Subroutine

public subroutine add_ungridded_dimensions(bundle, metadata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FieldBundle), intent(in) :: bundle
type(FileMetadata), intent(inout) :: metadata
integer, intent(out), optional :: rc

Calls

proc~~add_ungridded_dimensions~~CallsGraph proc~add_ungridded_dimensions add_ungridded_dimensions interface~get_ungridded_dims get_ungridded_dims proc~add_ungridded_dimensions->interface~get_ungridded_dims none~add_dimension FileMetadata%add_dimension proc~add_ungridded_dimensions->none~add_dimension none~get_extent~3 UngriddedDim%get_extent proc~add_ungridded_dimensions->none~get_extent~3 none~get_ith_dim_spec UngriddedDims%get_ith_dim_spec proc~add_ungridded_dimensions->none~get_ith_dim_spec none~get_name~15 UngriddedDim%get_name proc~add_ungridded_dimensions->none~get_name~15 none~get_num_ungridded UngriddedDims%get_num_ungridded proc~add_ungridded_dimensions->none~get_num_ungridded proc~mapl_return MAPL_Return proc~add_ungridded_dimensions->proc~mapl_return proc~mapl_verify MAPL_Verify proc~add_ungridded_dimensions->proc~mapl_verify none~add_dimension->proc~mapl_return insert insert none~add_dimension->insert none~get_ith_dim_spec->proc~mapl_return none~get_ith_dim_spec->proc~mapl_verify none~at~97 UngriddedDimVector%at none~get_ith_dim_spec->none~at~97 at at proc~mapl_return->at 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 none~of_size_kind~8 UngriddedDimVector%of_size_kind none~at~97->none~of_size_kind~8

Called by

proc~~add_ungridded_dimensions~~CalledByGraph proc~add_ungridded_dimensions add_ungridded_dimensions proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~add_ungridded_dimensions

Source Code

   subroutine add_ungridded_dimensions(bundle, metadata, rc)
      type(ESMF_FieldBundle), intent(in) :: bundle
      type(FileMetaData), intent(inout) :: metadata
      integer, optional, intent(out) :: rc
      integer :: status
      type(UngriddedDims) :: ungridded_dims
      type(UngriddedDim) :: u
      integer :: i

      ungridded_dims = get_ungridded_dims(bundle, _RC)
      do i = 1, ungridded_dims%get_num_ungridded()
         u = ungridded_dims%get_ith_dim_spec(i)
         call metadata%add_dimension(u%get_name(), u%get_extent())
      end do
      _RETURN(_SUCCESS)

   end subroutine add_ungridded_dimensions