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