test_add_one_field Subroutine

public subroutine test_add_one_field()

Arguments

None

Calls

proc~~test_add_one_field~~CallsGraph proc~test_add_one_field test_add_one_field none~add_item~2 StateSpec%add_item proc~test_add_one_field->none~add_item~2 none~insert~247 StateItemSpecMap%insert none~add_item~2->none~insert~247 none~insert_pair~21 StateItemSpecMap%insert_pair none~insert~247->none~insert_pair~21

Source Code

   subroutine test_add_one_field()
      type(StateSpec) :: state_spec
      type(ESMF_Geom) :: geom
      type(BasicVerticalGrid) :: vertical_grid
      type(VerticalDimSpec) :: vertical_dim_spec
      type(StringVector) :: attributes
      call state_spec%add_item('A', &
           FieldSpec(geom=geom, vertical_grid=vertical_grid, vertical_dim_spec=vertical_dim_spec, &
           typekind=ESMF_TYPEKIND_R4, ungridded_dims=UngriddedDims()))


   end subroutine test_add_one_field