Test_AddFieldSpec Module


Uses


Subroutines

public subroutine test_add_one_field()

Arguments

None

public subroutine test_get_item()

Arguments

None

public subroutine test_vertical()

Arguments

None

public subroutine test_vertical_surface()

$ @assert_that(all(shape(x3d) == [4,4,10]), is(true())) $ field = ESMF_FieldEmptyCreate(rc=status) $ @assert_that(status, is(0)) $ call ESMF_FieldEmptySet(field, grid, rc=status) $ @assert_that(status, is(0)) $ call ESMF_FieldEmptyComplete(field, ESMF_TYPEKIND_R4, & $ rc=status) $ @assert_that(status, is(0))

Arguments

None