IF ( useCoupler .AND. useImportFlxCO2 ) THEN
& useImportVsq, useImportThSIce, useImportFlxCO2
LOGICAL useImportVsq, useImportThSIce, useImportFlxCO2
IF ( useImportFlxCO2 .AND. cpl_exchange_DIC.NE.3 ) THEN
CALL WRITE_0D_L( useImportFlxCO2, INDEX_NONE,
& useImportVsq, useImportThSIce, useImportFlxCO2,
useImportFlxCO2 = cpl_exchange_DIC .EQ. 3