& min_y_Dirich_WEST, max_y_Dirich_WEST,
_RL min_y_Dirich_WEST, max_y_Dirich_WEST
CALL WRITE_0D_RL( min_y_Dirich_WEST, INDEX_NONE,
IF ((y .gt. min_y_Dirich_WEST) .AND.
min_y_Dirich_WEST = 0.