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 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_ungrid mk_field_r4_ungrid proc~set_up_data~2->proc~mk_field_r4_ungrid 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_ungrid->proc~mapl_verify proc~mapl_return MAPL_Return proc~mk_field_r4_ungrid->proc~mapl_return proc~mk_field_common mk_field_common proc~mk_field_r4_ungrid->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 proc~mk_field_r4_2d->proc~mapl_verify proc~mk_field_r4_2d->proc~mapl_return proc~mk_field_r4_2d->proc~mk_field_common esmf_fieldget esmf_fieldget proc~mk_field_r4_2d->esmf_fieldget proc~mk_field_r8_2d->proc~mapl_verify proc~mk_field_r8_2d->proc~mapl_return proc~mk_field_r8_2d->proc~mk_field_common proc~mk_field_r8_2d->esmf_fieldget proc~mk_grid->proc~mapl_verify proc~mk_grid->proc~mapl_return ESMF_GridCreateNoPeriDim ESMF_GridCreateNoPeriDim proc~mk_grid->ESMF_GridCreateNoPeriDim

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)
      XR4_3D = mk_field_r4_ungrid(name = 'XR4_3D', ungriddedLBound=[1],ungriddedUBound=[3],_RC)
      YR4_3D = mk_field_r4_ungrid(name = 'YR4_3D',ungriddedLBound=[1],ungriddedUBound=[3], _RC)

   end subroutine set_up_data