& cpl_earlyExpImpCall, cpl_oldPickup,
LOGICAL cpl_oldPickup
IF ( cpl_oldPickup .AND. cpl_earlyExpImpCall ) THEN
CALL WRITE_0D_L( cpl_oldPickup , INDEX_NONE,
& cpl_oldPickup,
cpl_oldPickup = .FALSE.