set_up_data Subroutine

public subroutine set_up_data()

Arguments

None

Calls

proc~~set_up_data~~CallsGraph proc~set_up_data Test_FieldArithmetic::set_up_data ESMF_AttributeSet ESMF::ESMF_AttributeSet proc~set_up_data->ESMF_AttributeSet interface~mk_field field_utils_setup::mk_field proc~set_up_data->interface~mk_field proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~set_up_data->proc~mapl_verify proc~mk_field_r4_2d field_utils_setup::mk_field_r4_2d interface~mk_field->proc~mk_field_r4_2d proc~mk_field_r8_2d field_utils_setup::mk_field_r8_2d interface~mk_field->proc~mk_field_r8_2d proc~mapl_throw_exception MAPL_ThrowMod::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_ErrorHandlingMod::MAPL_Return proc~mk_field_r4_2d->proc~mapl_return proc~mk_field_common field_utils_setup::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 field_utils_setup::mk_grid proc~mk_field_common->proc~mk_grid

Source Code

   subroutine set_up_data()
      implicit none

      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, regDecomp=REG_DECOMP_DEFAULT, minIndex=MIN_INDEX_DEFAULT, maxIndex=MAX_INDEX_DEFAULT, &
         indexflag=INDEX_FLAG_DEFAULT, name = 'XR4', _RC)
      YR4 = mk_field(y4array, regDecomp=REG_DECOMP_DEFAULT, minIndex=MIN_INDEX_DEFAULT, maxIndex=MAX_INDEX_DEFAULT, &
         indexflag=INDEX_FLAG_DEFAULT, name = 'YR4', _RC)
      XR8 = mk_field(R8_ARRAY_DEFAULT, regDecomp=REG_DECOMP_DEFAULT, minIndex=MIN_INDEX_DEFAULT, maxIndex=MAX_INDEX_DEFAULT, &
         indexflag=INDEX_FLAG_DEFAULT, name = 'XR8', _RC)
      YR8 = mk_field(y8array, regDecomp=REG_DECOMP_DEFAULT, minIndex=MIN_INDEX_DEFAULT, maxIndex=MAX_INDEX_DEFAULT, &
         indexflag=INDEX_FLAG_DEFAULT, 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