IF ( useMNC .AND. pickup_read_mnc ) THEN
land_pickup_read_mnc = pickup_read_mnc .AND. useMNC
& pickup_write_mnc, pickup_read_mnc,
IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.
IF ( pickup_write_mnc .OR. pickup_read_mnc ) THEN
IF ( pickup_read_mnc ) THEN
pickup_read_mnc = .FALSE.
CALL WRITE_0D_L(pickup_read_mnc,INDEX_NONE,
PTRACERS_pickup_read_mnc = useMNC .AND. pickup_read_mnc
thSIce_pickup_read_mnc = pickup_read_mnc
IF (useMNC .AND. pickup_read_mnc) THEN
aim_pickup_read_mnc = pickup_read_mnc .AND. useMNC