& useImportSIce, useImportThSIce, useImportSltPlm,
LOGICAL useImportSIce
ELSEIF ( useImportSIce ) THEN
IF ( useImportSLP .OR. useImportSIce ) THEN
IF ( ( useImportSIce .OR.
CALL WRITE_0D_L( useImportSIce , INDEX_NONE,
useImportSIce = cpl_exchange1W_sIce.EQ.3
IF ( useImportSIce .AND. useImportSLP ) THEN
IF ( useImportSIce ) _EXCH_XY_RS( sIceLoad, myThid )
ELSEIF ( useImportSLP .OR. useImportSIce ) THEN
IF ( useImportSIce ) THEN