& shelf_slope_scale,
_RL shelf_slope_scale
CALL WRITE_0D_RL( shelf_slope_scale, INDEX_NONE,
IF (shelf_slope_scale .GT. 0.0) THEN
c1 = 1.0 / shelf_slope_scale