& useImportSIce, useImportThSIce, useImportSltPlm,
LOGICAL useImportSltPlm
useImportSltPlm = cpl_exchange_SaltPl.EQ.3
IF ( useImportSltPlm .AND. cpl_exchange_SaltPl.NE.3 ) THEN
CALL WRITE_0D_L( useImportSltPlm , INDEX_NONE,
IF ( useImportSltPlm ) THEN