mk_field_r4_ungrid Function

public function mk_field_r4_ungrid(regDecomp, minIndex, maxIndex, indexflag, name, ungriddedLBound, ungriddedUBound, rc) result(field)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: name
integer, intent(in), optional :: ungriddedLBound(:)
integer, intent(in), optional :: ungriddedUBound(:)
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)


Calls

proc~~mk_field_r4_ungrid~~CallsGraph proc~mk_field_r4_ungrid field_utils_setup::mk_field_r4_ungrid proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mk_field_r4_ungrid->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~mk_field_r4_ungrid->proc~mapl_verify proc~mk_field_common field_utils_setup::mk_field_common proc~mk_field_r4_ungrid->proc~mk_field_common at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception 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 field_utils_setup::mk_grid proc~mk_field_common->proc~mk_grid proc~mk_grid->proc~mapl_return proc~mk_grid->proc~mapl_verify ESMF_GridCreateNoPeriDim ESMF::ESMF_GridCreateNoPeriDim proc~mk_grid->ESMF_GridCreateNoPeriDim

Called by

proc~~mk_field_r4_ungrid~~CalledByGraph proc~mk_field_r4_ungrid field_utils_setup::mk_field_r4_ungrid proc~set_up_data~2 Test_FieldBLAS::set_up_data proc~set_up_data~2->proc~mk_field_r4_ungrid

Source Code

   function mk_field_r4_ungrid(regDecomp, minIndex, maxIndex, indexflag, name, ungriddedLBound, ungriddedUBound, rc) result(field)
      integer, dimension(:), intent(in) :: regDecomp
      integer, dimension(:), intent(in) :: minIndex
      integer, dimension(:), intent(in) :: maxIndex
      type(ESMF_Index_Flag), intent(in) :: indexflag
      character(len=*), intent(in) :: name
      integer, optional, intent(in) :: ungriddedLBound(:)
      integer, optional, intent(in) :: ungriddedUBound(:)
      integer, optional, intent(out) :: rc

      type(ESMF_Field) :: field

      integer :: status

      field = mk_field_common(tk = ESMF_TYPEKIND_R4, regDecomp=regDecomp, minIndex=minIndex, maxIndex=maxIndex, indexflag = indexflag, name = name, ungriddedLBound=ungriddedLBound, ungriddedUBound=ungriddedUBound, _RC)

      _RETURN(_SUCCESS)
   end function mk_field_r4_ungrid