& useImportSLP, useImportRunOff,
LOGICAL useImportRunOff
IF ( useImportRunOff .AND. cpl_exchange_RunOff.NE.3 ) THEN
CALL WRITE_0D_L( useImportRunOff , INDEX_NONE,
useImportRunOff = cpl_exchange_RunOff.EQ.3