& land_pickup_write_mnc, land_pickup_read_mnc,
CALL WRITE_0D_L( land_pickup_read_mnc, INDEX_NONE,
IF ( .NOT.land_pickup_read_mnc ) THEN
IF ( land_pickup_read_mnc ) THEN
land_pickup_read_mnc = pickup_read_mnc .AND. useMNC
land_pickup_read_mnc = .FALSE.
land_pickup_read_mnc = useMNC .AND. land_pickup_read_mnc
& land_pickup_write_mnc, land_pickup_read_mnc