& ocn_cplExch_DIC,
LOGICAL ocn_cplExch_DIC
IF ( ocn_cplExch_DIC ) THEN
IF ( ( ocn_cplExch1W_sIce.AND.ocn_cplExch_DIC )
ocn_cplExch_DIC = MOD(parBuf(6),2).EQ.1
CALL WRITE_0D_L( ocn_cplExch_DIC, INDEX_NONE,
& ( ocn_cplExch_DIC .OR. apply2AllFields ) )
IF ( useImportSLP . AND. ocn_cplExch_DIC )