diff --git a/src/global.F90 b/src/global.F90 index 9e2ca1c257..628d69c314 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -12,7 +12,6 @@ module global use dict_header, only: DictCharInt, DictIntInt use geometry_header, only: Cell, Universe, Lattice, LatticeContainer use material_header, only: Material - use mesh_header, only: RegularMesh use mgxs_header, only: Mgxs, MgxsContainer use plot_header, only: ObjectPlot use set_header, only: SetInt @@ -29,6 +28,9 @@ module global use nuclide_header use sab_header + ! Inherit meshes array + use mesh_header + implicit none ! ============================================================================ @@ -125,7 +127,6 @@ module global ! ============================================================================ ! TALLY-RELATED VARIABLES - type(RegularMesh), allocatable, target :: meshes(:) type(TallyObject), allocatable, target :: tallies(:) type(TallyFilterContainer), allocatable, target :: filters(:) type(TallyFilterMatch), allocatable :: filter_matches(:) diff --git a/src/mesh_header.F90 b/src/mesh_header.F90 index 9c40ccbef8..97dd248389 100644 --- a/src/mesh_header.F90 +++ b/src/mesh_header.F90 @@ -26,6 +26,8 @@ module mesh_header procedure :: intersects => regular_intersects end type RegularMesh + type(RegularMesh), allocatable, target :: meshes(:) + contains !=============================================================================== diff --git a/src/tallies/tally_filter_mesh.F90 b/src/tallies/tally_filter_mesh.F90 index fc0fdc4ebd..576ab6dbd1 100644 --- a/src/tallies/tally_filter_mesh.F90 +++ b/src/tallies/tally_filter_mesh.F90 @@ -5,7 +5,6 @@ module tally_filter_mesh use constants use error, only: warning use mesh_header - use global, only: meshes use hdf5_interface use particle_header, only: Particle use string, only: to_str