MAPL_Return Subroutine

public subroutine MAPL_Return(status, filename, line, rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: status
character(len=*), intent(in) :: filename
integer, intent(in) :: line
integer, intent(out), optional :: rc

Calls

proc~~mapl_return~~CallsGraph proc~mapl_return MAPL_Return 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

Called by

AbstractDataMessage%deserializewMAPL_Return
w
AbstractDataMessage%serializew
w
AbstractDataReference%deserialize_basew
w
AbstractDataReference%serialize_basew
w
AbstractGridFactory%cartesian_to_spherical_3d_real64w
w
AbstractGridFactory%get_basisw
w
AbstractGridFactory%make_arbitrary_decompositionw
w
AbstractGridFactory%make_gridw
w
AbstractGridFactory%spherical_to_cartesian_3d_real64w
w
AbstractMessage%dispatchw
w
AbstractRegridder%initialize_basew
w
AbstractRegridder%regrid_vector_3d_real64w
w
AbstractRegridder%supportsw
w
AbstractServer%report_profilew
w
alloc_w
w
ArrDescrCreateReaderCommw
w
ArrDescrCreateWriterCommw
w
ArrDescrInitw
w
Attribute_deserializew
w
BaseProfiler%start_selfw
w
BaseThread%clear_RequestHandlew
w
BaseThread%get_connectionw
w
BaseThread%insert_RequestHandlew
w
BaseThread%isEmpty_RequestHandlew
w
BaseThread%set_connectionw
w
bisect_find_LB_R8_I8w
w
BW_Benchmark%runw
w
CFIOCollection%findw
w
check_nc_statusw
w
check_resourcesw
w
CheckSyntaxw
w
ClientManager%add_ext_collectionw
w
ClientManager%add_hist_collectionw
w
ClientManager%collective_prefetch_dataw
w
ClientManager%collective_stage_dataw
w
ClientManager%done_collective_prefetchw
w
ClientManager%done_collective_stagew
w
ClientManager%modify_metadataw
w
ClientManager%post_waitw
w
ClientManager%set_currentw
w
ClientManager%set_optimal_serverw
w
ClientManager%set_server_sizew
w
ClientManager%split_server_poolsw
w
ClientManager%stage_nondistributed_dataw
w
ClientManager%terminatew
w
ClientThread%add_ext_collectionw
w
ClientThread%add_hist_collectionw
w
ClientThread%collective_prefetch_dataw
w
ClientThread%collective_stage_dataw
w
ClientThread%done_collective_prefetchw
w
ClientThread%done_collective_stagew
w
ClientThread%done_prefetchw
w
ClientThread%modify_metadataw
w
ClientThread%post_wait_allw
w
ClientThread%prefetch_dataw
w
ClientThread%stage_nondistributed_dataw
w
ClientThread%terminatew
w
ClientThread%wait_allw
w
CommGroupDescription%comm_group_rangew
w
compare_bundlew
w
construct_ISO8601Datew
w
construct_ISO8601DateTimew
w
construct_ISO8601Durationw
w
construct_ISO8601Timew
w
convert_ISO8601_to_esmf_timew
w
convert_ISO8601_to_esmf_timeintervalw
w
convert_ISO8601_to_integer_datew
w
convert_ISO8601_to_integer_timew
w
convert_twostring_2_esmfintervalw
w
CoordinateVariable%get_coordinate_dataw
w
CoordinateVariable%replace_coordinate_dataw
w
CoordinateVariable%serializew
w
CoordinateVariable_deserializew
w
copy_platform_nckeysw
w
create_cfw
w
create_timeunitw
w
dealloc_w
w
DerivedExport%evaluate_derived_fieldw
w
deserialize_message_vectorw
w
diff_two_timeunitsw
w
DirectoryService%connect_to_clientw
w
DirectoryService%connect_to_serverw
w
DirectoryService%free_directory_resourcesw
w
DirectoryService%publishw
w
ESMF_time_to_two_integerw
w
ESMFL_BundleCpyFieldw
w
ESMFL_field_is_undefinedw
w
ESMFL_FieldRegridw
w
ESMFL_GridCoordGetw
w
ESMFL_StateFieldIsNeededw
w
ESMFL_StateFreePointersw
w
ESMFL_StateGetFieldw
w
ESMFL_StateGetFieldArrayw
w
ESMFL_StateSetFieldNeededw
w
ExtData_DriverGridComp%runw
w
ExtData_DriverGridComp%set_servicesw
w
ExtData_IoBundle%cleanw
w
ExtData_IoBundle%make_cfiow
w
ExtDataBracket%set_parametersw
w
ExtDataConfig%add_new_rulew
w
ExtDataConfig%new_ExtDataConfig_from_yamlw
w
ExtDataDriver%finalize_io_clients_serversw
w
ExtDataDriver%initialize_io_clients_serversw
w
ExtDataDriver%initialize_mpiw
w
ExtDataDriver%runw
w
ExtDataFileStream%detect_metadataw
w
ExtDataMask%evaluate_box_maskw
w
ExtDataMask%evaluate_maskw
w
ExtDataMask%evaluate_region_maskw
w
ExtDataMask%evaluate_zone_maskw
w
ExtDataNG_IOBundle%cleanw
w
ExtDataNG_IOBundle%make_iow
w
ExtDataOldTypesCreator%fillin_derivedw
w
ExtDataOldTypesCreator%fillin_primaryw
w
ExtDataPointerUpdate%create_from_parametersw
w
ExtDataRule%set_defaultsw
w
ExtDataRule%split_vectorw
w
ExtDataTimeSample%set_defaultsw
w
FakeHistData0%runw
w
fieldAbsw
w
fieldAcosw
w
fieldAddw
w
fieldAsinw
w
fieldAtanw
w
FieldBundleWriter%create_from_bundlew
w
FieldBundleWriter%start_new_filew
w
FieldBundleWriter%write_to_filew
w
fieldCosw
w
fieldCoshw
w
fieldDividew
w
fieldExpw
w
fieldLogw
w
fieldLog10w
w
fieldMultiplyw
w
FieldNegatew
w
FieldPoww
w
fieldPowerw
w
FieldsHaveUndefw
w
fieldSinw
w
fieldSinhw
w
fieldSqrtw
w
fieldSubtractw
w
fieldTanw
w
fieldTanhw
w
FileMetadata%add_attribute_0dw
w
FileMetadata%add_attribute_1dw
w
FileMetadata%add_dimensionw
w
FileMetadata%add_variablew
w
FileMetadata%get_attributew
w
FileMetadata%get_attributesw
w
FileMetadata%get_coordinate_variablew
w
FileMetadata%get_dimensionw
w
FileMetadata%get_orderw
w
FileMetadata%get_variablew
w
FileMetadata%get_variablesw
w
FileMetadata%modify_dimensionw
w
FileMetadata%modify_variablew
w
FileMetadata%serializew
w
FileMetadata%set_orderw
w
FileMetadata_deserializew
w
FileMetadataUtils%get_coordinate_infow
w
FileMetadataUtils%get_file_namew
w
FileMetadataUtils%get_level_namew
w
FileMetadataUtils%get_time_infow
w
FileMetadataUtils%get_var_attr_int32w
w
FileMetadataUtils%get_var_attr_int64w
w
FileMetadataUtils%get_var_attr_real32w
w
FileMetadataUtils%get_var_attr_real64w
w
FileMetadataUtils%get_var_attr_stringw
w
FileMetadataUtils%get_variable_attributew
w
FileMetadataUtils%var_get_missing_valuew
w
FileMetadataUtils%var_has_attrw
w
FileMetadataUtils%var_has_missing_valuew
w
fill_grads_templatew
w
FillRequestBundlew
w
Find_M_files_for_currTimew
w
FREE_FILEw
w
GathervKernel%initw
w
GathervKernel%runw
w
GenericCplSetServicesw
w
get_att_char_netcdfw
w
get_att_real_netcdfw
w
get_attribute_from_groupw
w
get_callbacksw
w
get_cap_parameters_from_gcw
w
get_config_attributesw
w
get_factoryw
w
get_factory_idw
w
get_file_levelsw
w
get_file_timesw
w
get_filename_from_templatew
w
get_filename_from_template_use_indexw
w
get_ncfile_dimensionw
w
get_obsfile_Tbracket_from_epochw
w
get_points_in_spherical_domainw
w
get_v1d_netcdf_R8w
w
get_v1d_netcdf_R8_completew
w
get_v2d_netcdf_R4w
w
get_v2d_netcdf_R8w
w
get_var_from_name_w_groupw
w
GETFILEw
w
GridManager%deletew
w
GridManager%get_factoryw
w
GridManager%make_clonew
w
GridManager%make_factory_from_distGridw
w
GridManager%make_grid_from_distGridw
w
i_to_stringw
w
init_wrapperw
w
LatLonGridFactory%get_latitudesw
w
LatLonGridFactory%get_longitudesw
w
LocalMemReference%deserializew
w
LocalMemReference%serializew
w
make_BW_Benchmarkw
w
make_BW_Benchmarkw
w
make_BW_BenchmarkSpecw
w
make_ComboSpecw
w
make_GathervKernelw
w
make_GathervKernelw
w
make_GathervSpecw
w
make_subgridcompsw
w
MAPL_AddRecordw
w
MAPL_AdvertiseServicew
w
MAPL_Backspacew
w
MAPL_BalanceCreatew
w
MAPL_BalanceDestroyw
w
MAPL_BalanceGetw
w
MAPL_Cap%create_member_subcommunicatorw
w
MAPL_Cap%finalize_io_clients_serversw
w
MAPL_Cap%finalize_mpiw
w
MAPL_Cap%initialize_cap_gcw
w
MAPL_Cap%initialize_io_clients_serversw
w
MAPL_Cap%runw
w
MAPL_Cap%run_ensemblew
w
MAPL_Cap%run_memberw
w
MAPL_Cap%run_modelw
w
MAPL_CapGridComp%finalizew
w
MAPL_CapGridComp%get_model_durationw
w
MAPL_CapGridComp%initializew
w
MAPL_CapGridComp%runw
w
MAPL_CapGridComp%set_servicesw
w
MAPL_CapGridCompCreatew
w
MAPL_CFIOClosew
w
MAPL_CFIOCreateFromFilew
w
MAPL_CFIOCreatewritew
w
MAPL_CFIODestroyw
w
MAPL_CFIOGetw
w
MAPL_CFIOGetTimeStringw
w
MAPL_CFIOOpenWritew
w
MAPL_CFIOReadBundleReadw
w
MAPL_CFIOReadBundleWaitw
w
MAPL_CFIOSetw
w
MAPL_CFIOSetKrankw
w
MAPL_CFIOWriteBundlePostw
w
MAPL_CFIOWriteBundleWaitw
w
MAPL_CFIOWriteBundleWritew
w
MAPL_ChildAddAttribToImportSpecw
w
MAPL_ClimUpdatew
w
MAPL_CollectiveGather3Dw
w
MAPL_CollectiveScatter3Dw
w
MAPL_CollectiveWaitw
w
MAPL_ConfigCreatew
w
MAPL_ConnectServicew
w
MAPL_CplCompSetAlarmw
w
MAPL_CplCompSetVarSpecsw
w
MAPL_create_bundle_from_metdata_idw
w
MAPL_CreateRequestw
w
MAPL_DateStampGetw
w
MAPL_DisableRecordw
w
MAPL_DoNotAllocateImportw
w
MAPL_DoNotAllocateInternalw
w
MAPL_DoNotDeferExportw
w
MAPL_ESMFStateReadFromFilew
w
MAPL_ExchangeGridGetw
w
MAPL_ExchangeGridSetw
w
MAPL_ExportStateGetw
w
MAPL_Finalizew
w
MAPL_FriendlyGetw
w
MAPL_GCGetw
w
MAPL_GenericFinalizew
w
MAPL_GenericInitializew
w
MAPL_GenericMakeXchgNaturalw
w
MAPL_GenericRecordw
w
MAPL_GenericRefreshw
w
MAPL_GenericRunChildrenw
w
MAPL_GenericRunCouplersw
w
MAPL_GenericSetServicesw
w
MAPL_GenericStateRestorew
w
MAPL_GenericStateSavew
w
MAPL_GetAllExchangeGridsw
w
MAPL_GetChildLocstreamw
w
MAPL_GetCurrentFilew
w
MAPL_GetImsJmsw
w
MAPL_GetResource_config_arrayw
w
MAPL_GetResource_config_scalarw
w
MAPL_GridCompSetEntryPointw
w
MAPL_GridCoordAdjustw
w
MAPL_GridCreatew
w
MAPL_GriddedIO%alphabatize_variablesw
w
MAPL_GriddedIO%bundlePostw
w
MAPL_GriddedIO%check_chunkingw
w
MAPL_GriddedIO%CreateFileMetaDataw
w
MAPL_GriddedIO%CreateQuantizationInfow
w
MAPL_GriddedIO%CreateVariablew
w
MAPL_GriddedIO%modifyTimew
w
MAPL_GriddedIO%process_data_from_filew
w
MAPL_GriddedIO%regridScalarw
w
MAPL_GriddedIO%regridVectorw
w
MAPL_GriddedIO%request_data_from_filew
w
MAPL_GriddedIO%set_default_chunkingw
w
MAPL_GriddedIO%set_paramw
w
MAPL_GriddedIO%stage2DLatLonw
w
MAPL_GriddedIO%stageDataw
w
MAPL_GriddedIO%swap_undef_valuew
w
MAPL_GridGetw
w
MAPL_GridHasDEw
w
MAPL_ImportStateGetw
w
MAPL_Initializew
w
MAPL_InternalESMFStateGetw
w
MAPL_InternalStateCreatew
w
MAPL_InternalStateRetrievew
w
MAPL_IOChangeResw
w
MAPL_IOCountLevelsw
w
MAPL_IOCountNonDimVarsw
w
MAPL_IOGetNonDimVarsw
w
MAPL_IOGetTimew
w
MAPL_LocStreamAdjustNsubtilesw
w
MAPL_LocStreamCreateXformw
w
MAPL_LocStreamFracAreaw
w
MAPL_LocStreamGetw
w
MAPL_LocStreamIsAssociatedw
w
MAPL_LocStreamTileWeightw
w
MAPL_LocStreamXformIsAssociatedw
w
MAPL_MemCommitedw
w
MAPL_MemUsedw
w
MAPL_MemUtilsDisablew
w
MAPL_MemUtilsFreew
w
MAPL_MemUtilsInitw
w
MAPL_MethodAddw
w
MAPL_NCIOGetFileTypew
w
MAPL_ProfDisablew
w
MAPL_ProfEnablew
w
MAPL_read_bundlew
w
MAPL_RecordAlarmIsRingingw
w
MAPL_RequestServicew
w
MAPL_Rewindw
w
MAPL_RoundRobinPEListw
w
MAPL_SetVarSpecForCCw
w
MAPL_SimpleBundleDestroyw
w
MAPL_SimpleBundleGetIndexw
w
MAPL_SimpleBundleReadw
w
MAPL_Skipw
w
MAPL_StateAlarmAddw
w
MAPL_StateAlarmGetw
w
MAPL_StateCreateFromSpecw
w
MAPL_StateCreateFromSpecNeww
w
MAPL_StateEvalw
w
MAPL_StatePrintSpecCSVw
w
MAPL_SunGetDaylightDurationw
w
MAPL_SunGetDaylightDurationMaxw
w
MAPL_SunGetLocalSolarHourAnglew
w
MAPL_SunOrbitCreatew
w
MAPL_SunOrbitCreatedw
w
MAPL_SunOrbitCreateFromConfigw
w
MAPL_SunOrbitDestroyw
w
MAPL_SunOrbitQueryw
w
MAPL_TileMaskGetw
w
MAPL_VarSpecAddChildNamew
w
MAPL_VarSpecCreateInListw
w
MAPL_VarSpecCreateInListNeww
w
MAPL_VarSpecPrintCSVw
w
MAPL_VarSpecReconnectw
w
MAPLDataCollection%findw
w
MaplGrid%setw
w
mk_field_commonw
w
mk_field_r4_2dw
w
mk_field_r4_ungridw
w
mk_field_r8_2dw
w
mk_gridw
w
mk_r4fieldw
w
mk_r4ungrid_fieldw
w
mk_r8fieldw
w
MpiSocket%receivew
w
MpiSocket%sendw
w
MyGridCreate_w
w
MyGridCreate_w
w
NetCDF4_FileFormatter%createw
w
NetCDF4_FileFormatter%create_parw
w
NetCDF4_FileFormatter%get_var_real64_4w
w
NetCDF4_FileFormatter%inq_dimw
w
NetCDF4_FileFormatter%inq_var_string_lengthw
w
NetCDF4_FileFormatter%put_var_real64_4w
w
new_ExtData_IoBundlew
w
new_ExtDataNG_IOBundlew
w
new_ExtDataOldTypesCreatorw
w
newExtDataDriverw
w
NewRegridderManager%find_prototypew
w
NewRegridderManager%make_regridder_w
w
parse_timeunit_i4w
w
parse_timeunit_i8w
w
parser_variables_in_expressionw
w
process_command_linew
w
ProvidedServiceGetw
w
ProvidedServiceSetw
w
read_M_files_4_swathw
w
regridw
w
regrid_support%create_gridw
w
regrid_support%has_levelw
w
regrid_support%process_command_linew
w
RegridderManager%make_regridder_from_gridsw
w
RegridSupport%create_cubed_sphere_gridw
w
RegridSupport%create_esmf_gridsw
w
RegridSupport%create_lat_lon_gridw
w
RegridSupport%transfer_metadataw
w
reportw
w
reportw
w
reportw
w
RequestedServiceGetw
w
reset_times_to_current_dayw
w
runw
w
runw
w
runw
w
runw
w
run_component_driverw
w
ServerManager%finalizew
w
ServerManager%get_splitcommw
w
ServerManager%initializew
w
ServerThread%initw
w
ServerThread%runw
w
ServiceConnectionGetw
w
set_ESMF_Time_from_ISO8601w
w
set_ESMF_TimeInterval_from_datetime_durationw
w
SetServicesw
w
SetServicesw
w
SetServicesw
w
SetServicesw
w
SetServicesw
w
SetServicesw
w
SetServicesw
w
SimpleCommSplitter%add_group_simplew
w
SimpleCommSplitter%compute_colorw
w
SimpleCommSplitter%get_node_idw
w
SimpleCommSplitter%get_node_sizesw
w
SimpleCommSplitter%splitw
w
SimpleSocket%sendw
w
sort_four_arrays_by_timew
w
sort_indexw
w
sort_three_arrays_by_timew
w
start_global_time_profilerw
w
stop_global_time_profilerw
w
string_to_esmf_timew
w
string_to_esmf_timeintervalw
w
string_to_integer_datew
w
string_to_integer_timew
w
StringAttributeMap_deserializew
w
StringAttributeMap_serializew
w
StringIntegerMap_deserializew
w
StringUnlimitedEntityMap_deserializew
w
StringVariableMap_deserializew
w
StringVariableMap_serializew
w
StringVector_deserializew
w
TilingRegridder%find_tile_filew
w
TilingRegridder%initialize_subclassw
w
timew
w
timew
w
timew
w
time_esmf_2_nc_intw
w
time_ESMF_to_realw
w
time_nc_int_2_esmfw
w
time_real_to_ESMFw
w
timeData%add_time_to_metadataw
w
timeData%compute_time_vectorw
w
timeData%define_time_variablew
w
two_integer_to_ESMF_timew
w
union_platformw
w
UnlimitedEntity%get_rankw
w
UnlimitedEntity%get_shapew
w
UnlimitedEntity%get_valuew
w
UnlimitedEntity%get_valuesw
w
UnlimitedEntity%is_emptyw
w
UnlimitedEntity%serializew
w
UnlimitedEntity%setw
w
UnlimitedEntity_deserializew
w
VarConn%checkReqw
w
VarConn%varIsConnected_namew
w
VarConn%varIsListedw
w
Variable%add_attribute_1dw
w
Variable%add_const_valuew
w
Variable%get_attributew
w
Variable%get_ith_dimensionw
w
Variable%is_attribute_presentw
w
Variable%serializew
w
Variable_deserializew
w
verticalData%append_vertical_metadataw
w
verticalData%correct_topow
w
verticalData%flip_levelsw
w
verticalData%regrid_eta_to_pressurew
w
verticalData%regrid_select_levelw
w
verticalData%setup_eta_to_pressurew
w
vertInterpolation_pressKappaw
w
word_sizew
w
write_headerw
w
write_headerw
w
write_headerw
w

Source Code

   subroutine MAPL_Return(status, filename, line, rc)
      integer, intent(in) :: status
      character(*), intent(in) :: filename
      integer, intent(in) :: line
      integer, intent(out), optional :: rc

      logical :: condition, fail
      character(:), allocatable :: message

      condition = (status == 0)
      fail = .not. condition

      if (fail) then
         message = get_error_message(status)
         !$omp critical (MAPL_ErrorHandling4)
         call MAPL_throw_exception(filename, line, message=message)
         !$omp end critical (MAPL_ErrorHandling4)
      end if
      ! Regardless of error:
      if (present(rc)) rc = status

   end subroutine MAPL_Return