IF (useMNC.AND. pickup_write_mnc) THEN
IF ( useMNC .AND. pickup_write_mnc ) THEN
land_pickup_write_mnc = pickup_write_mnc .AND. useMNC
& pickup_write_mnc, pickup_read_mnc,
& .AND. pickup_write_mnc ) pickup_write_mdsio = .FALSE.
IF ( pickup_write_mnc .OR. pickup_read_mnc ) THEN
IF ( pickup_write_mnc ) THEN
pickup_write_mnc = .FALSE.
CALL WRITE_0D_L(pickup_write_mnc,INDEX_NONE,
PTRACERS_pickup_write_mnc = useMNC .AND. pickup_write_mnc
thSIce_pickup_write_mnc = pickup_write_mnc
IF (useMNC .AND. pickup_write_mnc) THEN
aim_pickup_write_mnc = pickup_write_mnc .AND. useMNC