& ocn_cplExch_RunOff,
LOGICAL ocn_cplExch_RunOff
IF ( ocn_cplExch_RunOff ) THEN
ocn_cplExch_RunOff = MOD(parBuf(2),2).EQ.1
CALL WRITE_0D_L( ocn_cplExch_RunOff, INDEX_NONE,