mk_r8field Function

public function mk_r8field(r8array, field_name, rc) result(r8field)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in) :: r8array(:,:)
character(len=*), intent(in) :: field_name
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)


Calls

proc~~mk_r8field~~CallsGraph proc~mk_r8field mk_r8field interface~mk_field mk_field proc~mk_r8field->interface~mk_field proc~mapl_return MAPL_Return proc~mk_r8field->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mk_r8field->proc~mapl_verify proc~mk_field_r4_2d mk_field_r4_2d interface~mk_field->proc~mk_field_r4_2d proc~mk_field_r8_2d mk_field_r8_2d interface~mk_field->proc~mk_field_r8_2d 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_2d->proc~mapl_return proc~mk_field_r4_2d->proc~mapl_verify esmf_fieldget esmf_fieldget proc~mk_field_r4_2d->esmf_fieldget proc~mk_field_common mk_field_common proc~mk_field_r4_2d->proc~mk_field_common proc~mk_field_r8_2d->proc~mapl_return proc~mk_field_r8_2d->proc~mapl_verify proc~mk_field_r8_2d->esmf_fieldget proc~mk_field_r8_2d->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

Called by

proc~~mk_r8field~~CalledByGraph proc~mk_r8field mk_r8field proc~test_fieldaddr8 test_FieldAddR8 proc~test_fieldaddr8->proc~mk_r8field

Source Code

   function mk_r8field(r8array, field_name, rc) result(r8field)
      type(ESMF_Field) :: r8field
      real(kind=ESMF_KIND_R8), intent(in) :: r8array(:,:)
      character(len=*), intent(in) :: field_name
      integer, optional, intent(out) :: rc

      integer :: status

      r8field = mk_field(r8array, name = field_name, _RC)

      _RETURN(_SUCCESS)

   end function mk_r8field