& useImportFice, useImportCO2, useImportWSpd,
LOGICAL useImportFice
useImportFice =( cpl_exchange_DIC .EQ. 3 .AND.
& useImportFice.AND.cpl_exchange2W_sIce.NE.3 )
IF ( ( useImportFice.AND.cpl_exchange2W_sIce.NE.3
CALL WRITE_0D_L( useImportFice , INDEX_NONE,
IF ( useImportFice ) THEN