& useImportVsq, useImportFlxCO2
LOGICAL useImportVsq, useImportFlxCO2
IF ( useImportFlxCO2 .AND. .NOT.atmCpl_exchange_DIC ) THEN
CALL WRITE_0D_L( useImportFlxCO2 , INDEX_NONE,
& useImportVsq, useImportFlxCO2,
useImportFlxCO2 = .TRUE.
useImportFlxCO2 = .FALSE.
IF ( useImportFlxCO2 ) THEN