MAPL_ConfigCreate Function

public function MAPL_ConfigCreate(unusable, rc) result(config)

Uses

  • proc~~mapl_configcreate~~UsesGraph proc~mapl_configcreate MAPL_ConfigCreate module~mapl_keywordenforcermod MAPL_KeywordEnforcerMod proc~mapl_configcreate->module~mapl_keywordenforcermod

Arguments

Type IntentOptional Attributes Name
class(KeywordEnforcer), intent(in), optional :: unusable
integer, intent(out), optional :: rc

Return Value type(ESMF_Config)


Calls

proc~~mapl_configcreate~~CallsGraph proc~mapl_configcreate MAPL_ConfigCreate ESMF_ConfigCreate ESMF_ConfigCreate proc~mapl_configcreate->ESMF_ConfigCreate buffer buffer proc~mapl_configcreate->buffer proc~mapl_return MAPL_Return proc~mapl_configcreate->proc~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

proc~~mapl_configcreate~~CalledByGraph proc~mapl_configcreate MAPL_ConfigCreate proc~create_cf create_cf proc~create_cf->proc~mapl_configcreate proc~create_cf~2 create_cf proc~create_cf~2->proc~mapl_configcreate proc~create_output_grid create_output_grid proc~create_output_grid->proc~mapl_configcreate proc~test_setattribute_string test_SetAttribute_string proc~test_setattribute_string->proc~mapl_configcreate proc~create_grid regrid_support%create_grid proc~create_grid->proc~create_cf program~time_ave time_ave program~time_ave->proc~create_output_grid program~ut_regridding ut_ReGridding program~ut_regridding->proc~create_cf~2 proc~process_command_line~2 regrid_support%process_command_line proc~process_command_line~2->proc~create_grid proc~main main proc~main->proc~process_command_line~2

Source Code

   function MAPL_ConfigCreate(unusable, rc) result(config)
      use MAPL_KeywordEnforcerMod
      type (ESMF_Config) :: config
      class (KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(out) :: rc

      character, parameter :: EOB = achar(00)   !! end of buffer mark (null)
#if defined(__NAG_COMPILER_BUILD) && defined(__DARWIN)
      character, parameter :: EOL = achar(12)   !! end of line mark (cr)
#else
      character, parameter :: EOL = achar(10)   !! end of line mark (newline)
#endif
      character, parameter :: NUL = achar(00)   !! what it says

      config = ESMF_ConfigCreate(rc=rc)
      config%cptr%buffer(1:1) = EOL
      config%cptr%buffer(2:2) = EOB
      config%cptr%nbuf = 2
      config%cptr%next_line = 1
      config%cptr%value_begin = 1

      _RETURN(_SUCCESS)
      _UNUSED_DUMMY(unusable)
   end function MAPL_ConfigCreate