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