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