make_ungriddedDim Function

public function make_ungriddedDim(info, rc) result(dim)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Info), intent(in) :: info
integer, intent(out), optional :: rc

Return Value type(UngriddedDim)


Calls

proc~~make_ungriddeddim~~CallsGraph proc~make_ungriddeddim make_ungriddedDim interface~mapl_infoget MAPL_InfoGet proc~make_ungriddeddim->interface~mapl_infoget proc~mapl_return MAPL_Return proc~make_ungriddeddim->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_ungriddeddim->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

Called by

proc~~make_ungriddeddim~~CalledByGraph proc~make_ungriddeddim make_ungriddedDim proc~make_ungriddeddims make_ungriddedDims proc~make_ungriddeddims->proc~make_ungriddeddim proc~test_make_ungridded_dim test_make_ungridded_dim proc~test_make_ungridded_dim->proc~make_ungriddeddim proc~test_make_ungridded_dims test_make_ungridded_dims proc~test_make_ungridded_dims->proc~make_ungriddeddims

Source Code

   function make_ungriddedDim(info, rc) result(dim)
      type(UngriddedDim) :: dim
      type(ESMF_Info), intent(in) :: info
      integer, optional, intent(out) :: rc
      integer :: status

      call MAPL_InfoGet(info, key='name', value=dim%name, _RC)
      call MAPL_InfoGet(info, key='units', value=dim%units, _RC)
      call MAPL_InfoGet(info, key='coordinates', values=dim%coordinates, _RC)

      _RETURN(_SUCCESS)
   end function make_ungriddedDim