& min_y_noflow_WEST, max_y_noflow_WEST,
_RL min_y_noflow_WEST, max_y_noflow_WEST
CALL WRITE_0D_RL( max_y_noflow_WEST, INDEX_NONE,
& (y .le. max_y_noflow_WEST)) THEN
max_y_noflow_WEST = 0.