IF (useMNC .AND. pickup_read_mnc) THEN
thSIce_pickup_read_mnc = pickup_read_mnc
CALL WRITE_0D_L(pickup_read_mnc,INDEX_NONE,
& pickup_write_mnc, pickup_read_mnc,
IF (pickup_read_mnc) pickup_read_mdsio = .FALSE.
pickup_read_mnc = .TRUE.