mk_r4ungrid_field Function

public function mk_r4ungrid_field(field_name, lbound, ubound, rc) result(r4field)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: field_name
integer, intent(in) :: lbound
integer, intent(in) :: ubound
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)


Calls

proc~~mk_r4ungrid_field~~CallsGraph proc~mk_r4ungrid_field mk_r4ungrid_field proc~mapl_return MAPL_Return proc~mk_r4ungrid_field->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mk_r4ungrid_field->proc~mapl_verify proc~mk_field_r4_ungrid mk_field_r4_ungrid proc~mk_r4ungrid_field->proc~mk_field_r4_ungrid 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 proc~mk_field_r4_ungrid->proc~mapl_return proc~mk_field_r4_ungrid->proc~mapl_verify proc~mk_field_common mk_field_common proc~mk_field_r4_ungrid->proc~mk_field_common proc~mk_field_common->proc~mapl_return proc~mk_field_common->proc~mapl_verify esmf_fieldcreate esmf_fieldcreate proc~mk_field_common->esmf_fieldcreate proc~mk_grid mk_grid proc~mk_field_common->proc~mk_grid proc~mk_grid->proc~mapl_return proc~mk_grid->proc~mapl_verify ESMF_GridCreateNoPeriDim ESMF_GridCreateNoPeriDim proc~mk_grid->ESMF_GridCreateNoPeriDim

Source Code

   function mk_r4ungrid_field(field_name, lbound, ubound, rc) result(r4field)
      type(ESMF_Field) :: r4field
      character(len=*), intent(in) :: field_name
      integer, intent(in) :: lbound
      integer, intent(in) :: ubound
      integer, optional, intent(out) :: rc

      integer :: status

      r4field = mk_field_r4_ungrid(name = field_name, ungriddedLBound=[lbound],ungriddedUBound=[ubound],_RC)

      _RETURN(_SUCCESS)

   end function mk_r4ungrid_field