& useImportSLP, useImportSIce,
LOGICAL useImportSIce
ELSEIF ( useImportSIce ) THEN
IF ( useImportSLP .OR. useImportSIce ) THEN
CALL WRITE_0D_L( useImportSIce , INDEX_NONE,
useImportSIce = .TRUE.
IF ( useImportSIce .AND. useImportSLP ) THEN
IF ( useImportSIce) _EXCH_XY_R4( sIceload, myThid )
ELSEIF ( useImportSLP .OR. useImportSIce ) THEN
IF ( useImportSIce ) THEN