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~2~~CallsGraph proc~set_up_data~2 set_up_data ESMF_InfoGetFromHost ESMF_InfoGetFromHost proc~set_up_data~2->ESMF_InfoGetFromHost ESMF_InfoSet ESMF_InfoSet proc~set_up_data~2->ESMF_InfoSet interface~mk_field mk_field proc~set_up_data~2->interface~mk_field proc~mapl_verify MAPL_Verify proc~set_up_data~2->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(:,:)

      type(ESMF_Info) :: infoh

      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_InfoGetFromHost(xr4,infoh,_RC)
      call ESMF_InfoSet(infoh,key="missing_value",value=undef,_RC)
      call ESMF_InfoGetFromHost(xr8,infoh,_RC)
      call ESMF_InfoSet(infoh,key="missing_value",value=undef,_RC)
      call ESMF_InfoGetFromHost(yr4,infoh,_RC)
      call ESMF_InfoSet(infoh,key="missing_value",value=undef,_RC)
      call ESMF_InfoGetFromHost(yr8,infoh,_RC)
      call ESMF_InfoSet(infoh,key="missing_value",value=undef,_RC)

   end subroutine set_up_data