test_reuse_regridder Subroutine

public subroutine test_reuse_regridder(this)

Arguments

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

Calls

proc~~test_reuse_regridder~~CallsGraph proc~test_reuse_regridder test_reuse_regridder anyexceptions anyexceptions proc~test_reuse_regridder->anyexceptions assert_that assert_that proc~test_reuse_regridder->assert_that asserttrue asserttrue proc~test_reuse_regridder->asserttrue esmfregridderparam esmfregridderparam proc~test_reuse_regridder->esmfregridderparam geommanager geommanager proc~test_reuse_regridder->geommanager none~get_regridder RegridderManager%get_regridder proc~test_reuse_regridder->none~get_regridder proc~make_geom~2 make_geom proc~test_reuse_regridder->proc~make_geom~2 sourcelocation sourcelocation proc~test_reuse_regridder->sourcelocation find find none~get_regridder->find none~add_regridder RegridderManager%add_regridder none~get_regridder->none~add_regridder none~back~69 RegridderVector%back none~get_regridder->none~back~69 none~begin~207 RegridderSpecVector%begin none~get_regridder->none~begin~207 none~make_regridder RegridderManager%make_regridder none~get_regridder->none~make_regridder none~of~257 RegridderVector%of none~get_regridder->none~of~257 proc~mapl_return MAPL_Return none~get_regridder->proc~mapl_return proc~mapl_verify MAPL_Verify none~get_regridder->proc~mapl_verify ESMF_HConfigCreate ESMF_HConfigCreate proc~make_geom~2->ESMF_HConfigCreate get_geom get_geom proc~make_geom~2->get_geom get_mapl_geom get_mapl_geom proc~make_geom~2->get_mapl_geom none~push_back~59 RegridderSpecVector%push_back none~add_regridder->none~push_back~59 none~make_regridder->proc~mapl_return none~make_regridder->proc~mapl_verify interface~mapl_assert MAPL_Assert none~make_regridder->interface~mapl_assert none~get_param RegridderSpec%get_param none~make_regridder->none~get_param none~make_regridder~4 RegridderFactory%make_regridder none~make_regridder->none~make_regridder~4 none~of~23 RegridderFactoryVector%of none~make_regridder->none~of~23 supports supports none~make_regridder->supports none~of_size_kind~22 RegridderVector%of_size_kind none~of~257->none~of_size_kind~22 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

Source Code

   subroutine test_reuse_regridder(this)
      class(ESMF_TestMethod), intent(inout) :: this
      type(GeomManager) :: geom_mgr
      type(RegridderManager), target :: regridder_mgr
      type(RegridderSpec) :: regridder_spec
      integer :: status
      class(Regridder), pointer :: regridder_1, regridder_2
      type(ESMF_Geom) :: geom

      geom_mgr = GeomManager()
      regridder_mgr = RegridderManager()

      geom = make_geom(geom_mgr, _RC)

      regridder_spec = RegridderSpec(EsmfRegridderParam(), geom, geom)

      regridder_1 => regridder_mgr%get_regridder(regridder_spec, _RC)

      regridder_2 => regridder_mgr%get_regridder(regridder_spec, _RC)

      @assertTrue(associated(regridder_2, regridder_1))
   end subroutine test_reuse_regridder