create Subroutine

public subroutine create(this, metadata, fName)

Type Bound

FileMetadataUtils

Arguments

Type IntentOptional Attributes Name
class(FileMetadataUtils), intent(inout) :: this
type(FileMetadata), intent(in) :: metadata
character(len=*), intent(in) :: fName

Called by

proc~~create~~CalledByGraph proc~create FileMetadataUtils%create none~find~54 MAPLDataCollection%find none~find~54->proc~create proc~create_grid~2 regrid_support%create_grid proc~create_grid~2->proc~create proc~get_file_levels get_file_levels proc~get_file_levels->proc~create proc~get_file_levels~2 get_file_levels proc~get_file_levels~2->proc~create proc~get_file_times~2 get_file_times proc~get_file_times~2->proc~create proc~run_component_driver run_component_driver proc~run_component_driver->proc~create program~time_ave time_ave program~time_ave->proc~create program~time_ave->proc~get_file_levels proc~mapl_read_bundle MAPL_read_bundle program~time_ave->proc~mapl_read_bundle none~detect_metadata ExtDataFileStream%detect_metadata none~detect_metadata->none~find~54 none~request_data_from_file~2 MAPL_GriddedIO%request_data_from_file none~request_data_from_file~2->none~find~54 proc~main main proc~main->proc~run_component_driver proc~main~2 main proc~main~2->proc~get_file_levels~2 proc~main~2->proc~get_file_times~2 proc~main~2->proc~mapl_read_bundle proc~process_command_line~3 regrid_support%process_command_line proc~main~2->proc~process_command_line~3 proc~mapl_create_bundle_from_metdata_id MAPL_create_bundle_from_metdata_id proc~mapl_create_bundle_from_metdata_id->none~find~54 proc~mapl_read_bundle->none~find~54 proc~mapl_read_bundle->none~request_data_from_file~2 proc~mapl_read_bundle->proc~mapl_create_bundle_from_metdata_id proc~process_command_line~3->proc~create_grid~2 proc~fillin_primary ExtDataOldTypesCreator%fillin_primary proc~fillin_primary->none~detect_metadata program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main program~regrid_util Regrid_Util program~regrid_util->proc~main~2 program~ut_regridding ut_ReGridding program~ut_regridding->proc~mapl_read_bundle

Source Code

   subroutine create(this,metadata,fname)
      class(FileMetadataUtils), intent(inout) :: this
      type (FileMetadata), intent(in) :: metadata
      character(len=*), intent(in) :: fName
      this%Filemetadata = metadata
      this%filename = fName
   end subroutine create