add_variables Subroutine

public subroutine add_variables(metadata, bundle, rc)

Arguments

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

Calls

proc~~add_variables~~CallsGraph proc~add_variables add_variables interface~mapl_fieldbundleget~2 MAPL_FieldBundleGet proc~add_variables->interface~mapl_fieldbundleget~2 proc~add_variable add_variable proc~add_variables->proc~add_variable proc~mapl_return MAPL_Return proc~add_variables->proc~mapl_return proc~mapl_verify MAPL_Verify proc~add_variables->proc~mapl_verify proc~add_variable->proc~mapl_return proc~add_variable->proc~mapl_verify interface~mapl_fieldget MAPL_FieldGet proc~add_variable->interface~mapl_fieldget none~add_attribute~3 Variable%add_attribute proc~add_variable->none~add_attribute~3 none~add_variable~2 FileMetadata%add_variable proc~add_variable->none~add_variable~2 proc~esmf_to_pfio_type esmf_to_pfio_type proc~add_variable->proc~esmf_to_pfio_type proc~get_variable_dim_names get_variable_dim_names proc~add_variable->proc~get_variable_dim_names 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 none~add_attribute_1d~2 Variable%add_attribute_1d none~add_attribute~3->none~add_attribute_1d~2 none~add_variable~2->proc~mapl_return none~add_variable~2->at begin begin none~add_variable~2->begin interface~mapl_assert MAPL_Assert none~add_variable~2->interface~mapl_assert next next none~add_variable~2->next none~get_const_value Variable%get_const_value none~add_variable~2->none~get_const_value none~get_dimensions~3 Variable%get_dimensions none~add_variable~2->none~get_dimensions~3 none~get_shape UnlimitedEntity%get_shape none~add_variable~2->none~get_shape none~insert~405 StringVariableMap%insert none~add_variable~2->none~insert~405 none~is_empty UnlimitedEntity%is_empty none~add_variable~2->none~is_empty of of none~add_variable~2->of push_back push_back none~add_variable~2->push_back proc~esmf_to_pfio_type->proc~mapl_return proc~esmf_to_pfio_type->interface~mapl_assert proc~get_variable_dim_names->proc~mapl_return proc~get_variable_dim_names->proc~mapl_verify esmf_fieldget esmf_fieldget proc~get_variable_dim_names->esmf_fieldget get_gridded_dims get_gridded_dims proc~get_variable_dim_names->get_gridded_dims proc~get_mapl_geom get_mapl_geom proc~get_variable_dim_names->proc~get_mapl_geom proc~get_vertical_dimension_name_from_field get_vertical_dimension_name_from_field proc~get_variable_dim_names->proc~get_vertical_dimension_name_from_field proc~string_vec_to_comma_sep string_vec_to_comma_sep proc~get_variable_dim_names->proc~string_vec_to_comma_sep proc~ungridded_dim_names ungridded_dim_names proc~get_variable_dim_names->proc~ungridded_dim_names

Called by

proc~~add_variables~~CalledByGraph proc~add_variables add_variables proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~add_variables

Source Code

   subroutine add_variables(metadata, bundle, rc)
      type(ESMF_FieldBundle), intent(in) :: bundle
      type(FileMetaData), intent(inout) :: metadata
      integer, intent(out), optional :: rc

      integer :: status, i
      type(ESMF_Field) :: field
      type(ESMF_Field), allocatable :: fieldList(:)

      call MAPL_FieldBundleGet(bundle, fieldList=fieldList, _RC)
      do i = 1, size(fieldList)
         call add_variable(metadata, fieldList(i), _RC)
      enddo

      _RETURN(_SUCCESS)
   end subroutine add_variables