& min_x_FluxBdry_NORTH, max_x_FluxBdry_NORTH,
_RL min_x_FluxBdry_NORTH, max_x_FluxBdry_NORTH
CALL WRITE_0D_RL( max_x_FluxBdry_NORTH, INDEX_NONE,
& (x .le. max_x_FluxBdry_NORTH)) THEN
max_x_FluxBdry_NORTH = 0.