& ocn_cplExch1W_sIce, ocn_cplExch2W_sIce, ocn_cplExch_SaltPl,
LOGICAL ocn_cplExch1W_sIce
IF ( ( ocn_cplExch1W_sIce.AND.ocn_cplExch_DIC )
ocn_cplExch1W_sIce = MOD(parBuf(3),2).EQ.1
CALL WRITE_0D_L( ocn_cplExch1W_sIce, INDEX_NONE,
IF ( ocn_cplExch1W_sIce ) THEN