Grid_markRefineSpecialized.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	Grid_markRefineSpecialized (criterion, size, specs, lref)

Function/Subroutine Documentation

Grid_markRefineSpecialized()

subroutine Grid_markRefineSpecialized	(	integer	criterion,
		integer	size,
		real, dimension(size)	specs,
		integer	lref
	)

The routine provides an interface to a collection of routines that define very specialized refinement criteria. The currently supported options are:

THRESHOLD : when a specific variable is below or above a threshold ELLIPSOID : The blocks that fall within the specified ellipsoid RECTANGLE : The blocks that fall within the specified rectangle INRADIUS : The blocks that fall within the specified radius WITHRADIUS : The blocks that fall on the specified radius

criterion - the creterion on which to refine size - size of the specs data structure specs - the data structure containing information specific to the creterion For THRESHOLD specs(1) = real(variable_name), for example if variable is density, then specs(1)=real(DENS_VAR) specs(2) = the threshold value specs(3) = if < 0 refine if variable < threshold if > 0 refine if variable > threshold For ELLIPSOID specs(1:3) = center of the ellipsoid specs(4:6) = the semimajor axes of the ellipsoid For INRADIUS specs(1:3) = center of the circle/sphere specs(4) = the radius For WITHRADIUS specs(1:3) = center of the circle/sphere specs(4) = the radius For RECTANGLE specs(1:6) = bounding coordinates of rectangle specs(7) = if 0 refine block with any overlap if /= refine only blocks fully contained in the rectangle

lref - If > 0, bring selected blocks to this level of refinement. If <= 0, refine qualifying blocks once.

NOTES

This collection of routines has not been tested well and can be used as a guideline for a user's implementation.

Non-Cartesian geometries may not be supported in the default implementations of geometric criteria; the level of support depends on the routine that implements a given criterion.

Definition at line 68 of file Grid_markRefineSpecialized.F90.