initialize_field_source Subroutine

public subroutine initialize_field_source(field, source, grid, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Field), intent(inout) :: field
type(ESMF_Field), intent(inout) :: source
type(ESMF_Grid), intent(out), optional :: grid
integer, intent(out), optional :: rc

Calls

proc~~initialize_field_source~~CallsGraph proc~initialize_field_source initialize_field_source anyexceptions anyexceptions proc~initialize_field_source->anyexceptions assert_that assert_that proc~initialize_field_source->assert_that esmf_fieldcreate esmf_fieldcreate proc~initialize_field_source->esmf_fieldcreate esmf_fieldget esmf_fieldget proc~initialize_field_source->esmf_fieldget sourcelocation sourcelocation proc~initialize_field_source->sourcelocation

Called by

proc~~initialize_field_source~~CalledByGraph proc~initialize_field_source initialize_field_source interface~initialize_field initialize_field interface~initialize_field->proc~initialize_field_source proc~test_accumulate test_accumulate proc~test_accumulate->interface~initialize_field proc~test_accumulate_mean_r4 test_accumulate_mean_R4 proc~test_accumulate_mean_r4->interface~initialize_field proc~test_accumulate_r4 test_accumulate_R4 proc~test_accumulate_r4->interface~initialize_field proc~test_accumulate_with_undef_some_steps test_accumulate_with_undef_some_steps proc~test_accumulate_with_undef_some_steps->interface~initialize_field proc~test_max_accumulate_r4 test_max_accumulate_R4 proc~test_max_accumulate_r4->interface~initialize_field proc~test_min_accumulate_r4 test_min_accumulate_R4 proc~test_min_accumulate_r4->interface~initialize_field

Source Code

   subroutine initialize_field_source(field, source, grid, rc)
      type(ESMF_Field), intent(inout) :: field
      type(ESMF_Field), intent(inout) :: source
      type(ESMF_Grid), optional, intent(out) :: grid
      integer, optional, intent(out) :: rc

      type(ESMF_TypeKind_Flag) :: typekind
      type(ESMF_Grid) :: grid_
      integer :: status
      
      call ESMF_FieldGet(source, grid=grid_, typekind=typekind, _RC)
      field = ESMF_FieldCreate(grid=grid_, typekind=typekind, _RC)
      if(present(grid)) grid=grid_
      _RETURN(_SUCCESS)

   end subroutine initialize_field_source