& ocn_cplSequential,
LOGICAL ocn_cplSequential
IF ( .NOT.ocn_cplSequential ) THEN
ocn_cplSequential = parBuf(1).EQ.1
CALL WRITE_0D_L( ocn_cplSequential, INDEX_NONE,
IF ( ocn_cplSequential ) THEN