initialize_field_new Subroutine

public subroutine initialize_field_new(field, typekind, grid, rc)

Arguments

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

Calls

proc~~initialize_field_new~~CallsGraph proc~initialize_field_new initialize_field_new anyexceptions anyexceptions proc~initialize_field_new->anyexceptions assert_that assert_that proc~initialize_field_new->assert_that esmf_fieldcreate esmf_fieldcreate proc~initialize_field_new->esmf_fieldcreate proc~create_grid create_grid proc~initialize_field_new->proc~create_grid sourcelocation sourcelocation proc~initialize_field_new->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_field_new~~CalledByGraph proc~initialize_field_new initialize_field_new interface~initialize_field initialize_field interface~initialize_field->proc~initialize_field_new 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_new(field, typekind, grid, rc)
      type(ESMF_Field), intent(inout) :: field
      type(ESMF_TypeKind_Flag), intent(in) :: typekind
      type(ESMF_Grid), optional, intent(out) :: grid
      integer, optional, intent(out) :: rc

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

   end subroutine initialize_field_new