MODULE mod_grid_definition USE mod_grid_group TYPE(grid_group),SAVE,POINTER :: grid_definition CONTAINS SUBROUTINE grid_definition__Init USE mod_grid_group IMPLICIT NONE ALLOCATE(grid_definition) CALL grid_group__new(grid_definition,"grid_definition") END SUBROUTINE grid_definition__Init END MODULE mod_grid_definition