Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout), | target | :: | this | ||
class(AbstractGridFactory), | intent(in) | :: | factory | |||
integer(kind=ESMF_KIND_I8), | intent(out), | optional | :: | id |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
class(AbstractGridFactory), | intent(in) | :: | prototype |
$ procedure :: make_field $ procedure :: delete_field
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(in) | :: | this | |||
type(ESMF_Grid), | intent(inout) | :: | grid | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout), | target | :: | this | ||
type(ESMF_Grid), | intent(inout) | :: | grid | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout), | target | :: | this | ||
type(ESMF_Grid), | intent(inout) | :: | grid | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(in), | target | :: | this | ||
type(ESMF_Grid), | intent(in) | :: | grid | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
class(AbstractGridFactory), | intent(in) | :: | factory |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | prototype_name | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_Config), | intent(inout) | :: | config | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
character(len=*), | intent(in), | optional | :: | prefix | ||
integer, | intent(out), | optional | :: | rc |
$ elseif (…) then ! something that is true for tripolar? $ factory = this%make_clone(‘tripolar’)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | file_name | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unused | ||
logical, | intent(in), | optional | :: | force_file_coordinates | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_DistGrid), | intent(in) | :: | dist_grid | |||
type(ESMF_LocalArray), | intent(in) | :: | lon_array | |||
type(ESMF_LocalArray), | intent(in) | :: | lat_array | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_Config), | intent(inout) | :: | config | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
character(len=*), | intent(in), | optional | :: | prefix | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_DistGrid), | intent(in) | :: | dist_grid | |||
type(ESMF_LocalArray), | intent(in) | :: | lon_array | |||
type(ESMF_LocalArray), | intent(in) | :: | lat_array | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
$ elseif (…) then ! something that is true for tripolar? $ factory = this%make_clone(‘tripolar’)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | file_name | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unused | ||
logical, | intent(in), | optional | :: | force_file_coordinates | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout), | target | :: | this | ||
class(AbstractGridFactory), | intent(in) | :: | factory | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
type(ESMF_Config), | intent(inout) | :: | config | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
character(len=*), | intent(in), | optional | :: | prefix | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_DistGrid), | intent(in) | :: | dist_grid | |||
type(ESMF_LocalArray), | intent(in) | :: | lon_array | |||
type(ESMF_LocalArray), | intent(in) | :: | lat_array | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
type(ESMF_Config), | intent(inout) | :: | config | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
character(len=*), | intent(in), | optional | :: | prefix | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | grid_type | |||
type(ESMF_DistGrid), | intent(in) | :: | dist_grid | |||
type(ESMF_LocalArray), | intent(in) | :: | lon_array | |||
type(ESMF_LocalArray), | intent(in) | :: | lat_array | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(GridManager), | intent(inout), | target | :: | this | ||
class(AbstractGridFactory), | intent(in) | :: | factory | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
type :: GridManager private logical :: keep_grids = .false. integer(kind=ESMF_KIND_I8) :: counter = 0 type (StringGridFactoryMap) :: prototypes type (Integer64GridFactoryMap) :: factories contains procedure :: add_prototype procedure :: destroy_grid generic :: destroy => destroy_grid procedure :: delete !!$ procedure :: make_field !!$ procedure :: delete_field procedure :: make_factory_from_config procedure :: make_factory_from_distGrid procedure :: make_factory_from_file procedure :: make_grid_from_factory procedure :: make_grid_from_config procedure :: make_grid_from_distGrid generic :: make_factory => make_factory_from_config generic :: make_factory => make_factory_from_file generic :: make_factory => make_factory_from_distGrid generic :: make_grid => make_grid_from_factory generic :: make_grid => make_grid_from_config generic :: make_grid => make_grid_from_distGrid procedure :: get_factory ! from grid ! helper procedures procedure :: make_clone procedure :: get_id procedure :: add_factory procedure :: is_valid_prototype end type GridManager