Given an ESMF Config object and a filename, reads the corresponding file into a MAPL SimpleBundle.
Type | Intent | Optional | 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 |
Simple Bundle
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