& min_y_FluxBdry_EAST, max_y_FluxBdry_EAST,
_RL min_y_FluxBdry_EAST, max_y_FluxBdry_EAST
CALL WRITE_0D_RL( min_y_FluxBdry_EAST, INDEX_NONE,
IF ((y .gt. min_y_FluxBdry_EAST) .AND.
min_y_FluxBdry_EAST = 0.