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