& cpl_exchange_DIC
INTEGER cpl_exchange_DIC
cpl_exchange_DIC = parBuf(6)
useImportFice =( cpl_exchange_DIC .EQ. 3 .AND.
useImportCO2 = cpl_exchange_DIC .EQ. 3
useImportWSpd = cpl_exchange_DIC .EQ. 3
& .AND. cpl_exchange_DIC.NE.3 ) THEN
IF ( useImportFlxCO2 .AND. cpl_exchange_DIC.NE.3 ) THEN
useImportFlxCO2 = cpl_exchange_DIC .EQ. 3
& cpl_exchange_DIC,
& ' cpl_exchange_DIC =', cpl_exchange_DIC
& cpl_exchange_SaltPl, cpl_exchange_DIC,
cpl_exchange_DIC = 0
& .AND.cpl_exchange_DIC.GE.2 )
IF ( cpl_exchange_DIC.GE.2 ) THEN
IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN
parBuf(6) = cpl_exchange_DIC
& .AND.MOD(cpl_exchange_DIC,2).EQ.1 )