set_up_data Subroutine

public subroutine set_up_data(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~set_up_data~~CallsGraph proc~set_up_data set_up_data ESMF_AttributeSet ESMF_AttributeSet proc~set_up_data->ESMF_AttributeSet interface~mk_field mk_field proc~set_up_data->interface~mk_field proc~mapl_verify MAPL_Verify proc~set_up_data->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 proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mk_field_r4_2d->proc~mapl_verify esmf_fieldget esmf_fieldget proc~mk_field_r4_2d->esmf_fieldget proc~mapl_return MAPL_Return proc~mk_field_r4_2d->proc~mapl_return proc~mk_field_common mk_field_common proc~mk_field_r4_2d->proc~mk_field_common proc~mk_field_r8_2d->proc~mapl_verify proc~mk_field_r8_2d->esmf_fieldget proc~mk_field_r8_2d->proc~mapl_return proc~mk_field_r8_2d->proc~mk_field_common proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mk_field_common->proc~mapl_verify proc~mk_field_common->proc~mapl_return esmf_fieldcreate esmf_fieldcreate proc~mk_field_common->esmf_fieldcreate proc~mk_grid mk_grid proc~mk_field_common->proc~mk_grid

Source Code

   subroutine set_up_data(this)
      class(MpiTestMethod), intent(inout) :: this

      integer :: status, rc

      real(kind=ESMF_KIND_R4), parameter :: ADD_R4 = 100.0
      real(kind=ESMF_KIND_R8), parameter :: ADD_R8 = 100.0
      real(kind=ESMF_KIND_R4), allocatable :: y4array(:,:)
      real(kind=ESMF_KIND_R8), allocatable :: y8array(:,:)

      allocate(y4array, source=R4_ARRAY_DEFAULT)
      allocate(y8array, source=R8_ARRAY_DEFAULT)
      y4array = y4array + ADD_R4
      y8array = y8array + ADD_R8
      XR4 = mk_field(R4_ARRAY_DEFAULT, name = 'XR4', _RC)
      YR4 = mk_field(y4array, name = 'YR4', _RC)
      XR8 = mk_field(R8_ARRAY_DEFAULT, name = 'XR8', _RC)
      YR8 = mk_field(y8array, name = 'YR8', _RC)
      call ESMF_AttributeSet(xr4,name="missing_value",value=undef,_RC)
      call ESMF_AttributeSet(xr8,name="missing_value",value=undef,_RC)
      call ESMF_AttributeSet(yr4,name="missing_value",value=undef,_RC)
      call ESMF_AttributeSet(yr8,name="missing_value",value=undef,_RC)

   end subroutine set_up_data