initialize_objects Subroutine

public subroutine initialize_objects(importState, exportState, clock, typekind, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State), intent(inout) :: importState
type(ESMF_State), intent(inout) :: exportState
type(ESMF_Clock), intent(inout) :: clock
type(ESMF_TypeKind_Flag), intent(in) :: typekind
integer, intent(out), optional :: rc

Calls

proc~~initialize_objects~~CallsGraph proc~initialize_objects initialize_objects ESMF_ClockCreate ESMF_ClockCreate proc~initialize_objects->ESMF_ClockCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~initialize_objects->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~initialize_objects->ESMF_TimeSet anyexceptions anyexceptions proc~initialize_objects->anyexceptions assert_that assert_that proc~initialize_objects->assert_that esmf_fieldcreate esmf_fieldcreate proc~initialize_objects->esmf_fieldcreate esmf_statecreate esmf_statecreate proc~initialize_objects->esmf_statecreate proc~create_grid create_grid proc~initialize_objects->proc~create_grid sourcelocation sourcelocation proc~initialize_objects->sourcelocation proc~create_grid->anyexceptions proc~create_grid->assert_that proc~create_grid->sourcelocation ESMF_GridCreate ESMF_GridCreate proc~create_grid->ESMF_GridCreate

Called by

proc~~initialize_objects~~CalledByGraph proc~initialize_objects initialize_objects proc~test_accumulate test_accumulate proc~test_accumulate->proc~initialize_objects proc~test_accumulate_mean_r4 test_accumulate_mean_R4 proc~test_accumulate_mean_r4->proc~initialize_objects proc~test_accumulate_r4 test_accumulate_R4 proc~test_accumulate_r4->proc~initialize_objects proc~test_accumulate_with_undef_some_steps test_accumulate_with_undef_some_steps proc~test_accumulate_with_undef_some_steps->proc~initialize_objects proc~test_calculate_mean_r4 test_calculate_mean_R4 proc~test_calculate_mean_r4->proc~initialize_objects proc~test_clear test_clear proc~test_clear->proc~initialize_objects proc~test_clear~2 test_clear proc~test_clear~2->proc~initialize_objects proc~test_initialize test_initialize proc~test_initialize->proc~initialize_objects proc~test_initialize~2 test_initialize proc~test_initialize~2->proc~initialize_objects proc~test_invalidate test_invalidate proc~test_invalidate->proc~initialize_objects proc~test_invalidate~2 test_invalidate proc~test_invalidate~2->proc~initialize_objects proc~test_max_accumulate_r4 test_max_accumulate_R4 proc~test_max_accumulate_r4->proc~initialize_objects proc~test_min_accumulate_r4 test_min_accumulate_R4 proc~test_min_accumulate_r4->proc~initialize_objects proc~test_update test_update proc~test_update->proc~initialize_objects

Source Code

   subroutine initialize_objects(importState, exportState, clock, typekind, rc) 
      type(ESMF_State), intent(inout) :: importState, exportState
      type(ESMF_Clock), intent(inout) :: clock
      type(ESMF_TypeKind_Flag), intent(in) :: typekind
      integer, optional, intent(out) :: rc

      integer :: status
      type(ESMF_Field) :: importField, exportField
      type(ESMF_Time) :: startTime
      type(ESMF_TimeInterval) :: timeStep
      type(ESMF_Grid) :: grid

      call ESMF_TimeIntervalSet(timeStep, s=TIME_STEP, _RC)
      call ESMF_TimeSet(startTime, yy=START_TIME, _RC)
      clock = ESMF_ClockCreate(timeStep=timeStep, startTime=startTime, _RC)
      call create_grid(grid, _RC)
      importField = ESMF_FieldCreate(grid=grid, typekind=typekind, _RC)
      exportField = ESMF_FieldCreate(grid=grid, typekind=typekind, _RC)
      importState = ESMF_StateCreate(stateIntent=ESMF_STATEINTENT_IMPORT, fieldList=[importField], name='import', _RC)
      exportState = ESMF_StateCreate(stateIntent=ESMF_STATEINTENT_EXPORT, fieldList=[exportField], name='export', _RC)
      _RETURN(_SUCCESS)

   end subroutine initialize_objects