& min_x_FluxBdry_SOUTH, max_x_FluxBdry_SOUTH,
_RL min_x_FluxBdry_SOUTH, max_x_FluxBdry_SOUTH
CALL WRITE_0D_RL( min_x_FluxBdry_SOUTH, INDEX_NONE,
IF ((x .gt. min_x_FluxBdry_SOUTH) .AND.
min_x_FluxBdry_SOUTH = 0.