MAPL_SimpleBundleRead Function

public function MAPL_SimpleBundleRead(filename, bundle_name, Grid, Time, verbose, only_vars, expid, voting, unusable, rc) result(self)

Uses

  • proc~~mapl_simplebundleread~~UsesGraph proc~mapl_simplebundleread MAPL_SimpleBundleRead module~mapl_keywordenforcermod mapl_KeywordEnforcerMod proc~mapl_simplebundleread->module~mapl_keywordenforcermod module~mapl_keywordenforcer mapl_KeywordEnforcer module~mapl_keywordenforcermod->module~mapl_keywordenforcer

Given an ESMF Config object and a filename, reads the corresponding file into a MAPL SimpleBundle.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
character(len=*), intent(in) :: bundle_name
type(ESMF_Grid), intent(in) :: Grid
type(ESMF_Time), intent(inout) :: Time
logical, intent(in), optional :: verbose
character(len=*), intent(in), optional :: only_vars
character(len=*), intent(in), optional :: expid
logical, intent(in), optional :: voting
class(KeywordEnforcer), intent(in), optional :: unusable
integer, intent(out), optional :: rc

Return Value type(MAPL_SimpleBundle)

Simple Bundle


Calls

proc~~mapl_simplebundleread~~CallsGraph proc~mapl_simplebundleread MAPL_SimpleBundleRead esmf_fieldbundlecreate esmf_fieldbundlecreate proc~mapl_simplebundleread->esmf_fieldbundlecreate esmf_fieldbundleset esmf_fieldbundleset proc~mapl_simplebundleread->esmf_fieldbundleset interface~mapl_cfioread MAPL_CFIORead proc~mapl_simplebundleread->interface~mapl_cfioread interface~mapl_simplebundlecreate MAPL_SimpleBundleCreate proc~mapl_simplebundleread->interface~mapl_simplebundlecreate proc~mapl_return MAPL_Return proc~mapl_simplebundleread->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_simplebundleread->proc~mapl_verify 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

Source Code

  Function MAPL_SimpleBundleRead (filename, bundle_name, grid, time, verbose, &
                                  only_vars, expid, voting, unusable, rc ) result (self)
         use mapl_KeywordEnforcerMod

    type(MAPL_SimpleBundle)                    :: self !! Simple Bundle

    character(len=*),            intent(in)    :: filename
    character(len=*),            intent(in)    :: bundle_name
    type(ESMF_Time),             intent(inout) :: Time
    type(ESMF_Grid),             intent(in)    :: Grid
    logical, OPTIONAL,           intent(in)    :: verbose
    character(len=*), optional,  intent(IN)    :: only_vars
    character(len=*), optional,  intent(IN)    :: expid
    class(KeywordEnforcer), optional, intent(in) :: unusable
    logical,          optional,  intent(in)    :: voting
    integer, OPTIONAL,           intent(out)   :: rc

!-----------------------------------------------------------------------------

    integer :: status
    type(ESMF_FieldBundle),  pointer :: Bundle

    allocate(Bundle, stat=STATUS)
    _VERIFY(STATUS)

    Bundle = ESMF_FieldBundleCreate ( name=bundle_name, _RC )
    call ESMF_FieldBundleSet ( bundle, grid=Grid, _RC )
    call MAPL_CFIORead  ( filename, Time, Bundle, verbose=verbose, &
                          ONLY_VARS=only_vars, expid=expid, voting=voting, _RC )
    self = MAPL_SimpleBundleCreate ( Bundle, _RC )
    self%bundleAlloc = .true.

    _RETURN(_SUCCESS)

    _UNUSED_DUMMY(unusable)

  end function MAPL_SimpleBundleRead