phy_procedures_lte_eNb.c 68.6 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
/*
 * Licensed to the OpenAirInterface (OAI) Software Alliance under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The OpenAirInterface Software Alliance licenses this file to You under
 * the OAI Public License, Version 1.0  (the "License"); you may not use this file
 * except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.openairinterface.org/?page_id=698
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *-------------------------------------------------------------------------------
 * For more information about the OpenAirInterface (OAI) Software Alliance:
 *      contact@openairinterface.org
 */
21 22 23

/*! \file phy_procedures_lte_eNB.c
 * \brief Implementation of eNB procedures from 36.213 LTE specifications
24
 * \author R. Knopp, F. Kaltenberger, N. Nikaein, X. Foukas
25 26 27
 * \date 2011
 * \version 0.1
 * \company Eurecom
28
 * \email: knopp@eurecom.fr,florian.kaltenberger@eurecom.fr,navid.nikaein@eurecom.fr, x.foukas@sms.ed.ac.uk
29 30 31 32 33 34 35 36
 * \note
 * \warning
 */

#include "PHY/defs.h"
#include "PHY/extern.h"
#include "SCHED/defs.h"
#include "SCHED/extern.h"
37
#include "nfapi_interface.h"
38
#include "fapi_l1.h"
39 40 41
#include "UTIL/LOG/log.h"
#include "UTIL/LOG/vcd_signal_dumper.h"

42 43
#include "T.h"

44
#include "assertions.h"
gauthier's avatar
gauthier committed
45
#include "msc.h"
46

47 48
#include <time.h>

49
#if defined(ENABLE_ITTI)
gauthier's avatar
For RAL  
gauthier committed
50
#   include "intertask_interface.h"
51 52
#endif

53
extern uint8_t nfapi_mode;
54
int oai_nfapi_rach_ind(nfapi_rach_indication_t *rach_ind);
55

knopp's avatar
 
knopp committed
56

57

58
void pmch_procedures(PHY_VARS_eNB *eNB,eNB_rxtx_proc_t *proc,PHY_VARS_RN *rn,relaying_type_t r_type) {
59 60


Cedric Roux's avatar
Cedric Roux committed
61
#if defined(Rel10) || defined(Rel14)
knopp's avatar
knopp committed
62
  MCH_PDU *mch_pduP=NULL;
63
  MCH_PDU  mch_pdu;
64
  //  uint8_t sync_area=255;
65
#endif
66

67
  int subframe = proc->subframe_tx;
68

knopp's avatar
knopp committed
69 70
  AssertFatal(1==0,"pmch not tested for the moment, exiting\n");

71 72 73 74 75 76
  // This is DL-Cell spec pilots in Control region
  generate_pilots_slot(eNB,
		       eNB->common_vars.txdataF,
		       AMP,
		       subframe<<1,1);

77
  
Cedric Roux's avatar
Cedric Roux committed
78
#if defined(Rel10) || defined(Rel14)
79 80
  // if mcch is active, send regardless of the node type: eNB or RN
  // when mcch is active, MAC sched does not allow MCCH and MTCH multiplexing
81
  /*
82 83
  mch_pduP = mac_xface->get_mch_sdu(eNB->Mod_id,
				    eNB->CC_id,
84
				    proc->frame_tx,
85
				    subframe);
86
  */
87 88 89
  switch (r_type) {
  case no_relay:
    if ((mch_pduP->Pdu_size > 0) && (mch_pduP->sync_area == 0)) // TEST: only transmit mcch for sync area 0
knopp's avatar
knopp committed
90
      LOG_D(PHY,"[eNB%"PRIu8"] Frame %d subframe %d : Got MCH pdu for MBSFN (MCS %"PRIu8", TBS %d) \n",
91 92
	    eNB->Mod_id,proc->frame_tx,subframe,mch_pduP->mcs,
	    eNB->dlsch_MCH->harq_processes[0]->TBS>>3);
93 94
    else {
      LOG_D(PHY,"[DeNB %"PRIu8"] Frame %d subframe %d : Do not transmit MCH pdu for MBSFN sync area %"PRIu8" (%s)\n",
95
	    eNB->Mod_id,proc->frame_tx,subframe,mch_pduP->sync_area,
96 97
	    (mch_pduP->Pdu_size == 0)? "Empty MCH PDU":"Let RN transmit for the moment");
      mch_pduP = NULL;
gauthier's avatar
For RAL  
gauthier committed
98
    }
99
    
knopp's avatar
 
knopp committed
100
    break;
101 102 103
    
  case multicast_relay:
    if ((mch_pduP->Pdu_size > 0) && ((mch_pduP->mcch_active == 1) || mch_pduP->msi_active==1)) {
knopp's avatar
knopp committed
104
      LOG_D(PHY,"[RN %"PRIu8"] Frame %d subframe %d: Got the MCH PDU for MBSFN  sync area %"PRIu8" (MCS %"PRIu8", TBS %"PRIu16")\n",
105 106 107 108 109 110 111 112 113
	    rn->Mod_id,rn->frame, subframe,
	    mch_pduP->sync_area,mch_pduP->mcs,mch_pduP->Pdu_size);
    } else if (rn->mch_avtive[subframe%5] == 1) { // SF2 -> SF7, SF3 -> SF8
      mch_pduP= &mch_pdu;
      memcpy(&mch_pduP->payload, // could be a simple copy
	     rn->dlsch_rn_MCH[subframe%5]->harq_processes[0]->b,
	     rn->dlsch_rn_MCH[subframe%5]->harq_processes[0]->TBS>>3);
      mch_pduP->Pdu_size = (uint16_t) (rn->dlsch_rn_MCH[subframe%5]->harq_processes[0]->TBS>>3);
      mch_pduP->mcs = rn->dlsch_rn_MCH[subframe%5]->harq_processes[0]->mcs;
knopp's avatar
knopp committed
114
      LOG_D(PHY,"[RN %"PRIu8"] Frame %d subframe %d: Forward the MCH PDU for MBSFN received on SF %d sync area %"PRIu8" (MCS %"PRIu8", TBS %"PRIu16")\n",
115 116
	    rn->Mod_id,rn->frame, subframe,subframe%5,
	    rn->sync_area[subframe%5],mch_pduP->mcs,mch_pduP->Pdu_size);
knopp's avatar
 
knopp committed
117
    } else {
118
      mch_pduP=NULL;
knopp's avatar
 
knopp committed
119
    }
120 121
    
    rn->mch_avtive[subframe]=0;
knopp's avatar
 
knopp committed
122
    break;
123
    
124
  default:
125
    LOG_W(PHY,"[eNB %"PRIu8"] Frame %d subframe %d: unknown relaying type %d \n",
126
	  eNB->Mod_id,proc->frame_tx,subframe,r_type);
127 128 129 130 131
    mch_pduP=NULL;
    break;
  }// switch
  
  if (mch_pduP) {
132
    fill_eNB_dlsch_MCH(eNB,mch_pduP->mcs,1,0);
133
    // Generate PMCH
134
    generate_mch(eNB,proc,(uint8_t*)mch_pduP->payload);
135
  } else {
136
    LOG_D(PHY,"[eNB/RN] Frame %d subframe %d: MCH not generated \n",proc->frame_tx,subframe);
knopp's avatar
 
knopp committed
137
  }
138
  
139
#endif
140
}
141

142
void common_signal_procedures (PHY_VARS_eNB *eNB,int frame, int subframe) {
143

144
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
145
  int **txdataF = eNB->common_vars.txdataF;
146
  uint8_t *pbch_pdu=&eNB->pbch_pdu[0];
147

148
  //LOG_D(PHY,"common_signal_procedures: frame %d, subframe %d fdd:%s dir:%s\n",frame,subframe,fp->frame_type == FDD?"FDD":"TDD", subframe_select(fp,subframe) == SF_DL?"DL":"UL?"); 
149

150
  // generate Cell-Specific Reference Signals for both slots
151 152 153 154 155 156 157
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_RS_TX,1);
  generate_pilots_slot(eNB,
		       txdataF,
		       AMP,
		       subframe<<1,0);
  // check that 2nd slot is for DL
  if (subframe_select(fp,subframe) == SF_DL)
158 159 160
    generate_pilots_slot(eNB,
			 txdataF,
			 AMP,
161 162 163 164
			 (subframe<<1)+1,0);
  
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_RS_TX,0);
      
165

166
  // First half of PSS/SSS (FDD, slot 0)
knopp's avatar
 
knopp committed
167
  if (subframe == 0) {
168
    if (fp->frame_type == FDD) {
169 170 171 172 173 174 175 176 177 178 179
      generate_pss(txdataF,
		   AMP,
		   fp,
		   (fp->Ncp==NORMAL) ? 6 : 5,
		   0);
      generate_sss(txdataF,
		   AMP,
		   fp,
		   (fp->Ncp==NORMAL) ? 5 : 4,
		   0);
      
180
    }
181
    
182 183


184 185 186
      
    /// First half of SSS (TDD, slot 1)
    
187
    if (fp->frame_type == TDD) {
188 189 190 191 192 193
      generate_sss(txdataF,
		   AMP,
		   fp,
		   (fp->Ncp==NORMAL) ? 6 : 5,
		   1);
    }
194

195 196
    // generate PBCH (Physical Broadcast CHannel) info

197
    /// generate PBCH
198
    if ((frame&3)==0) {
199 200
      //AssertFatal(eNB->pbch_configured==1,"PBCH was not configured by MAC\n");
      if (eNB->pbch_configured!=1) return;
201
      eNB->pbch_configured=0;
202
    }
203 204 205 206 207 208 209
    generate_pbch(&eNB->pbch,
		  txdataF,
		  AMP,
		  fp,
		  pbch_pdu,
		  frame&3);
  
210
  }
211
  else if ((subframe == 1) &&
212
	   (fp->frame_type == TDD)){
213 214 215 216 217
    generate_pss(txdataF,
		 AMP,
		 fp,
		 2,
		 2);
218
  }
219 220 221
  
  // Second half of PSS/SSS (FDD, slot 10)
  else if ((subframe == 5) && 
222
	   (fp->frame_type == FDD)) {
223 224 225 226 227 228 229 230 231 232
    generate_pss(txdataF,
		 AMP,
		 &eNB->frame_parms,
		 (fp->Ncp==NORMAL) ? 6 : 5,
		 10);
    generate_sss(txdataF,
		 AMP,
		 &eNB->frame_parms,
		 (fp->Ncp==NORMAL) ? 5 : 4,
		 10);
233

234
  }
235

236 237
  //  Second-half of SSS (TDD, slot 11)
  else if ((subframe == 5) &&
238
	   (fp->frame_type == TDD)) {
239 240 241 242 243
    generate_sss(txdataF,
		 AMP,
		 fp,
		 (fp->Ncp==NORMAL) ? 6 : 5,
		 11);
knopp's avatar
 
knopp committed
244
  }
knopp's avatar
 
knopp committed
245

246 247
  // Second half of PSS (TDD, slot 12)
  else if ((subframe == 6) &&
248
	   (fp->frame_type == TDD)) { 
249 250 251 252 253 254
    generate_pss(txdataF,
		 AMP,
		 fp,
		 2,
		 12);
  }
knopp's avatar
 
knopp committed
255

256
}
knopp's avatar
 
knopp committed
257

258 259


260 261 262 263 264 265
void pdsch_procedures(PHY_VARS_eNB *eNB,
		      eNB_rxtx_proc_t *proc,
		      int harq_pid,
		      LTE_eNB_DLSCH_t *dlsch, 
		      LTE_eNB_DLSCH_t *dlsch1,
		      LTE_eNB_UE_stats *ue_stats,
266
		      int ra_flag) {
267

268 269
  int frame=proc->frame_tx;
  int subframe=proc->subframe_tx;
270 271
  LTE_DL_eNB_HARQ_t *dlsch_harq=dlsch->harq_processes[harq_pid];
  int input_buffer_length = dlsch_harq->TBS/8;
272
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
273

274
  if (1){
David Price's avatar
David Price committed
275
  //if (dlsch->rnti == 0x02) {//frame < 200) {
276

277
    LOG_I(PHY,
278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297
	  "[eNB %"PRIu8"][PDSCH %"PRIx16"/%"PRIu8"] Frame %d, subframe %d: Generating PDSCH/DLSCH with input size = %"PRIu16", pdsch_start %d, G %d, nb_rb %"PRIu16", rb0 %x, rb1 %x, TBS %"PRIu16", pmi_alloc %"PRIx64", rv %"PRIu8" (round %"PRIu8")\n",
	  eNB->Mod_id, dlsch->rnti,harq_pid,
	  frame, subframe, input_buffer_length, dlsch_harq->pdsch_start,
	  get_G(fp,
		dlsch_harq->nb_rb,
		dlsch_harq->rb_alloc,
		dlsch_harq->Qm,
		dlsch_harq->Nl,
		dlsch_harq->pdsch_start,
		frame,
		subframe,
		dlsch_harq->mimo_mode==TM7?7:0),
	  dlsch_harq->nb_rb,
	  dlsch_harq->rb_alloc[0],
	  dlsch_harq->rb_alloc[1],
	  dlsch_harq->TBS,
	  pmi2hex_2Ar1(dlsch_harq->pmi_alloc),
	  dlsch_harq->rvidx,
	  dlsch_harq->round);
  }    
298
#if defined(MESSAGE_CHART_GENERATOR_PHY)
299 300 301
  MSC_LOG_TX_MESSAGE(
		     MSC_PHY_ENB,MSC_PHY_UE,
		     NULL,0,
302
		     "%05u:%02u PDSCH/DLSCH input size = %"PRIu16", G %d, nb_rb %"PRIu16", TBS %"PRIu16", pmi_alloc %"PRIx16", rv %"PRIu8" (round %"PRIu8")",
303 304 305 306 307
		     frame, subframe,
		     input_buffer_length,
		     get_G(fp,
			   dlsch_harq->nb_rb,
			   dlsch_harq->rb_alloc,
308
			   dlsch_harq->Qm,
309
			   dlsch_harq->Nl,
310
			   dlsch_harq->pdsch_start,
311 312 313
			   frame,
			   subframe,
			   dlsch_harq->mimo_mode==TM7?7:0),
314
		     dlsch_harq->nb_rb,
315
		     dlsch_harq->TBS,
316 317 318 319
		     pmi2hex_2Ar1(dlsch_harq->pmi_alloc),
		     dlsch_harq->rvidx,
		     dlsch_harq->round);
#endif
320 321
  
  
322
  if (ue_stats) ue_stats->dlsch_sliding_cnt++;
323
  
324 325 326
  if (dlsch_harq->round == 0) {
    if (ue_stats)
      ue_stats->dlsch_trials[harq_pid][0]++;
327 328 329 330 331 332 333 334
  } else {
    ue_stats->dlsch_trials[harq_pid][dlsch_harq->round]++;
#ifdef DEBUG_PHY_PROC
#ifdef DEBUG_DLSCH
    LOG_D(PHY,"[eNB] This DLSCH is a retransmission\n");
#endif
#endif
  }
335 336


337
  LOG_D(PHY,"Generating DLSCH/PDSCH %d\n",ra_flag);
338
  // 36-212 
339
  start_meas(&eNB->dlsch_encoding_stats);
340
  AssertFatal(dlsch_harq->pdu!=NULL,"dlsch_harq->pdu == NULL (rnti %x)\n",dlsch->rnti);
341 342
  eNB->te(eNB,
	  dlsch_harq->pdu,
343
	  dlsch_harq->pdsch_start,
344 345 346 347 348 349 350 351 352 353 354 355 356 357 358
	  dlsch,
	  frame,subframe,
	  &eNB->dlsch_rate_matching_stats,
	  &eNB->dlsch_turbo_encoding_stats,
	  &eNB->dlsch_interleaving_stats);
  stop_meas(&eNB->dlsch_encoding_stats);
  // 36-211
  start_meas(&eNB->dlsch_scrambling_stats);
  dlsch_scrambling(fp,
		   0,
		   dlsch,
		   harq_pid,
		   get_G(fp,
			 dlsch_harq->nb_rb,
			 dlsch_harq->rb_alloc,
359
			 dlsch_harq->Qm,
360
			 dlsch_harq->Nl,
361
			 dlsch_harq->pdsch_start,
362 363 364
			 frame,subframe,
			 0),
		   0,
365
		   frame,
366 367 368 369 370 371 372 373 374 375
		   subframe<<1);
  stop_meas(&eNB->dlsch_scrambling_stats);
  
  start_meas(&eNB->dlsch_modulation_stats);
  
  
  dlsch_modulation(eNB,
		   eNB->common_vars.txdataF,
		   AMP,
		   subframe,
376
		   dlsch_harq->pdsch_start,
377 378 379 380
		   dlsch,
		   dlsch1);
  
  stop_meas(&eNB->dlsch_modulation_stats);
381

382
  dlsch->active = 0;
383
  dlsch_harq->round++;
384
}
385 386


387

388
void phy_procedures_eNB_TX(PHY_VARS_eNB *eNB,
knopp's avatar
knopp committed
389
			   eNB_rxtx_proc_t *proc,
390
                           relaying_type_t r_type,
391 392
			   PHY_VARS_RN *rn,
			   int do_meas)
393 394
{
  UNUSED(rn);
395 396
  int frame=proc->frame_tx;
  int subframe=proc->subframe_tx;
397
  uint32_t i,aa;
398
  uint8_t harq_pid;
399
  int8_t UE_id=0;
400
  uint8_t num_pdcch_symbols=0;
401
  uint8_t num_dci=0;
402 403
  uint8_t ul_subframe;
  uint32_t ul_frame;
404
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
405
  LTE_UL_eNB_HARQ_t *ulsch_harq;
406

407
  int offset = eNB->CC_id;//proc == &eNB->proc.proc_rxtx[0] ? 0 : 1;
408

409
  if ((fp->frame_type == TDD) && (subframe_select(fp,subframe)==SF_UL)) return;
410

Raymond Knopp's avatar
Raymond Knopp committed
411
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_PROCEDURES_ENB_TX+offset,1);
412
  if (do_meas==1) start_meas(&eNB->phy_proc_tx);
413

414
  // clear the transmit data array for the current subframe
415 416 417
  for (aa=0; aa<fp->nb_antenna_ports_eNB; aa++) {      
    memset(&eNB->common_vars.txdataF[aa][subframe*fp->ofdm_symbol_size*(fp->symbols_per_tti)],
	   0,fp->ofdm_symbol_size*(fp->symbols_per_tti)*sizeof(int32_t));
knopp's avatar
 
knopp committed
418
  }
419
  
420

421
  if (is_pmch_subframe(frame,subframe,fp)) {
422
    pmch_procedures(eNB,proc,rn,r_type);
423 424 425
  }
  else {
    // this is not a pmch subframe, so generate PSS/SSS/PBCH
426
    common_signal_procedures(eNB,proc->frame_tx, proc->subframe_tx);
427
  }
428

knopp's avatar
 
knopp committed
429
  // clear existing ulsch dci allocations before applying info from MAC  (this is table
430
  ul_subframe = pdcch_alloc2ul_subframe(fp,subframe);
431
  ul_frame = pdcch_alloc2ul_frame(fp,frame,subframe);
432 433 434



knopp's avatar
 
knopp committed
435
  // clear previous allocation information for all UEs
436
  for (i=0; i<NUMBER_OF_UE_MAX; i++) {
437 438
    if (eNB->dlsch[i][0])
      eNB->dlsch[i][0]->subframe_tx[subframe] = 0;
knopp's avatar
 
knopp committed
439
  }
440

Cedric Roux's avatar
Cedric Roux committed
441 442
  /* save old HARQ information needed for PHICH generation */
  for (i=0; i<NUMBER_OF_UE_MAX; i++) {
443
    harq_pid = subframe2harq_pid(fp,ul_frame,ul_subframe);
Cedric Roux's avatar
Cedric Roux committed
444
    if (eNB->ulsch[i]) {
445 446
      ulsch_harq = eNB->ulsch[i]->harq_processes[harq_pid];

Cedric Roux's avatar
Cedric Roux committed
447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466
      /* Store first_rb and n_DMRS for correct PHICH generation below.
       * For PHICH generation we need "old" values of last scheduling
       * for this HARQ process. 'generate_eNB_dlsch_params' below will
       * overwrite first_rb and n_DMRS and 'generate_phich_top', done
       * after 'generate_eNB_dlsch_params', would use the "new" values
       * instead of the "old" ones.
       *
       * This has been tested for FDD only, may be wrong for TDD.
       *
       * TODO: maybe we should restructure the code to be sure it
       *       is done correctly. The main concern is if the code
       *       changes and first_rb and n_DMRS are modified before
       *       we reach here, then the PHICH processing will be wrong,
       *       using wrong first_rb and n_DMRS values to compute
       *       ngroup_PHICH and nseq_PHICH.
       *
       * TODO: check if that works with TDD.
       */
      if ((subframe_select(fp,ul_subframe)==SF_UL) ||
          (fp->frame_type == FDD)) {
467 468
        ulsch_harq->previous_first_rb = ulsch_harq->first_rb;
        ulsch_harq->previous_n_DMRS   = ulsch_harq->n_DMRS;
Cedric Roux's avatar
Cedric Roux committed
469 470 471 472
      }
    }
  }

473

474

475 476 477 478 479
  //  num_pdcch_symbols = DCI_pdu->num_pdcch_symbols;
  num_pdcch_symbols = eNB->pdcch_vars[subframe&1].num_pdcch_symbols;
  num_dci           = eNB->pdcch_vars[subframe&1].num_dci;
  //  LOG_D(PHY,"num_pdcch_symbols %"PRIu8",(dci common %"PRIu8", dci uespec %"PRIu8"\n",num_pdcch_symbols,
  //        DCI_pdu->Num_common_dci,DCI_pdu->Num_ue_spec_dci);
480
  //LOG_D(PHY,"num_pdcch_symbols %"PRIu8",number dci %"PRIu8"\n",num_pdcch_symbols, num_dci);
481
  VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_DCI_INFO,num_pdcch_symbols);
482

483

484 485
  VCD_SIGNAL_DUMPER_DUMP_VARIABLE_BY_NAME(VCD_SIGNAL_DUMPER_VARIABLES_DCI_INFO,(frame*10)+subframe);

486
  if (num_dci > 0)
487
    LOG_D(PHY,"[eNB %"PRIu8"] Frame %d, subframe %d: Calling generate_dci_top (pdcch) (num_dci %"PRIu8") num_pdcch_symbols:%d\n",eNB->Mod_id,frame, subframe, num_dci, num_pdcch_symbols);
488
    
489
  //LOG_D(PHY,"Before generate_dci_top num_pdcch_symbols:%d num_dci:%d dci_alloc:dci_length:%d\n", num_pdcch_symbols, num_dci, eNB->pdcch_vars[subframe&1].dci_alloc[0].dci_length);
490

491
  generate_dci_top(num_pdcch_symbols,
492 493 494 495 496 497 498 499
      num_dci,
      &eNB->pdcch_vars[subframe&1].dci_alloc[0],
      0,
      AMP,
      fp,
      eNB->common_vars.txdataF,
      subframe);

500

gauthier's avatar
gauthier committed
501
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PDCCH_TX,0);
502

knopp's avatar
 
knopp committed
503
  // Now scan UE specific DLSCH
504
  LTE_eNB_DLSCH_t *dlsch0,*dlsch1;
505
  for (UE_id=0; UE_id<NUMBER_OF_UE_MAX; UE_id++)
506
    {
507 508 509 510 511 512
      dlsch0 = eNB->dlsch[(uint8_t)UE_id][0]; 
      dlsch1 = eNB->dlsch[(uint8_t)UE_id][1]; 

      if ((dlsch0)&&
	  (dlsch0->rnti>0)&&
	  (dlsch0->active == 1)) {
513

514
	// get harq_pid
515
	harq_pid = dlsch0->harq_ids[subframe];
516
	AssertFatal(harq_pid>=0,"harq_pid is negative\n");
517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532

        if (harq_pid>=8)
        {
          LOG_E(PHY,"harq_pid:%d corrupt must be 0-7\n", harq_pid);
        }
        else
        {
          // generate pdsch
          pdsch_procedures(eNB,
              proc,
              harq_pid,
              dlsch0,
              dlsch1,
              &eNB->UE_stats[(uint32_t)UE_id],
              0);
        }
533 534


knopp's avatar
 
knopp committed
535
      }
536

gauthier's avatar
gauthier committed
537

538
      else if ((dlsch0)&&
539 540
          (dlsch0->rnti>0)&&
          (dlsch0->active == 0)) {
541

542 543
        // clear subframe TX flag since UE is not scheduled for PDSCH in this subframe (so that we don't look for PUCCH later)
        dlsch0->subframe_tx[subframe]=0;
knopp's avatar
 
knopp committed
544
      }
knopp's avatar
 
knopp committed
545
    }
546

547 548


549 550 551
  generate_phich_top(eNB,
		     proc,
		     AMP);
552

Raymond Knopp's avatar
Raymond Knopp committed
553
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_PROCEDURES_ENB_TX+offset,0);
554
  if (do_meas==1) stop_meas(&eNB->phy_proc_tx);
555
  
556 557
}

558

559 560 561 562 563 564
void prach_procedures(PHY_VARS_eNB *eNB,
#ifdef Rel14
		      int br_flag
#endif
		      ) {
  uint16_t max_preamble[4],max_preamble_energy[4],max_preamble_delay[4];
gauthier's avatar
gauthier committed
565
  uint16_t i;
566
  int frame,subframe;
knopp's avatar
knopp committed
567

568 569 570 571
#ifdef Rel14
  if (br_flag==1) {
    subframe = eNB->proc.subframe_prach_br;
    frame = eNB->proc.frame_prach_br;
572 573 574
    pthread_mutex_lock(&eNB->UL_INFO_mutex);
    eNB->UL_INFO.rach_ind_br.number_of_preambles=0;
    pthread_mutex_unlock(&eNB->UL_INFO_mutex);
575 576 577 578
  }
  else
#endif
    {
579 580 581
      pthread_mutex_lock(&eNB->UL_INFO_mutex);
      eNB->UL_INFO.rach_ind.number_of_preambles=0;
      pthread_mutex_unlock(&eNB->UL_INFO_mutex);
582 583 584
      subframe = eNB->proc.subframe_prach;
      frame = eNB->proc.frame_prach;
    }
585 586 587
  RU_t *ru;
  int aa=0;
  int ru_aa;
588

589
 
590
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PRACH_RX,1);
591

592 593


594 595
  for (i=0;i<eNB->num_RU;i++) {
    ru=eNB->RU_list[i];
596
    for (ru_aa=0,aa=0;ru_aa<ru->nb_rx;ru_aa++,aa++) {
597
      eNB->prach_vars.rxsigF[0][aa] = eNB->RU_list[i]->prach_rxsigF[ru_aa];
598 599 600 601
#ifdef Rel14
      int ce_level;

      if (br_flag==1)
602
	for (ce_level=0;ce_level<4;ce_level++) eNB->prach_vars_br.rxsigF[ce_level][aa] = eNB->RU_list[i]->prach_rxsigF_br[ce_level][ru_aa];
603 604
#endif
    }
605
  }
606

607 608
  rx_prach(eNB,
	   eNB->RU_list[0],
609 610 611
	   &max_preamble[0],
	   &max_preamble_energy[0],
	   &max_preamble_delay[0],
612
	   frame,
613 614 615 616 617
	   0
#ifdef Rel14
	   ,br_flag
#endif
	   );
618

619
  //#ifdef DEBUG_PHY_PROC
620 621
  if (max_preamble_energy[0]/10 > 32)
    LOG_E(PHY,"[RAPROC] Frame %d, subframe %d : Most likely preamble %d, energy %d dB delay %d\n",
622
        frame,subframe,
623
        max_preamble[0],
624
        max_preamble_energy[0]/10,
625
        max_preamble_delay[0]);
626
  //q#endif
627

628 629
#ifdef Rel14
  if (br_flag==1) {
knopp's avatar
 
knopp committed
630

631 632 633 634 635
    int prach_mask;
      
    prach_mask = is_prach_subframe(&eNB->frame_parms,eNB->proc.frame_prach_br,eNB->proc.subframe_prach_br);
    
    eNB->UL_INFO.rach_ind_br.preamble_list                              = eNB->preamble_list_br;
636 637 638
    int ind=0;
    int ce_level=0;
    /* Save for later, it doesn't work    
639
    for (int ind=0,ce_level=0;ce_level<4;ce_level++) {
640 641 642
      
      if ((eNB->frame_parms.prach_emtc_config_common.prach_ConfigInfo.prach_CElevel_enable[ce_level]==1)&&
	  (prach_mask&(1<<(1+ce_level)) > 0) && // prach is active and CE level has finished its repetitions
643 644
	  (eNB->prach_vars_br.repetition_number[ce_level]==
	   eNB->frame_parms.prach_emtc_config_common.prach_ConfigInfo.prach_numRepetitionPerPreambleAttempt[ce_level])) {
645
    */ 
646 647 648 649 650 651 652 653 654 655
    if (eNB->frame_parms.prach_emtc_config_common.prach_ConfigInfo.prach_CElevel_enable[0]==1){ 
      if (max_preamble_energy[0] > 350) {
	eNB->UL_INFO.rach_ind_br.number_of_preambles++;
	
	eNB->preamble_list_br[ind].preamble_rel8.timing_advance        = max_preamble_delay[ind];//
	eNB->preamble_list_br[ind].preamble_rel8.preamble              = max_preamble[ind];
	// note: fid is implicitly 0 here, this is the rule for eMTC RA-RNTI from 36.321, Section 5.1.4
	eNB->preamble_list_br[ind].preamble_rel8.rnti                  = 1+subframe+(eNB->prach_vars_br.first_frame[ce_level]%40);  
	eNB->preamble_list_br[ind].instance_length                     = 0; //don't know exactly what this is
	eNB->preamble_list_br[ind].preamble_rel13.rach_resource_type   = 1+ce_level;  // CE Level
knopp's avatar
knopp committed
656
	LOG_D(PHY,"Filling NFAPI indication for RACH %d CELevel %d (mask %x) : TA %d, Preamble %d, rnti %x, rach_resource_type %d\n",
657 658 659 660 661 662 663 664 665
	      ind,
	      ce_level,
	      prach_mask,
	      eNB->preamble_list_br[ind].preamble_rel8.timing_advance,
	      eNB->preamble_list_br[ind].preamble_rel8.preamble,
	      eNB->preamble_list_br[ind].preamble_rel8.rnti,
	      eNB->preamble_list_br[ind].preamble_rel13.rach_resource_type);
      }
      /*
666 667
	ind++;
      }
668 669
      } */// ce_level
    }
670 671 672
  }
  else
#endif
Cedric Roux's avatar
Cedric Roux committed
673

674
    {
675
      if (max_preamble_energy[0] > 350) {
676

677
	LOG_E(PHY,"[eNB %d/%d][RAPROC] Frame %d, subframe %d Initiating RA procedure with preamble %d, energy %d.%d dB, delay %d\n",
678 679 680 681 682 683 684 685
	      eNB->Mod_id,
	      eNB->CC_id,
	      frame,
	      subframe,
	      max_preamble[0],
	      max_preamble_energy[0]/10,
	      max_preamble_energy[0]%10,
	      max_preamble_delay[0]);
686
	
Cedric Roux's avatar
Cedric Roux committed
687
	    T(T_ENB_PHY_INITIATE_RA_PROCEDURE, T_INT(eNB->Mod_id), T_INT(frame), T_INT(subframe),
688 689
	      T_INT(max_preamble[0]), T_INT(max_preamble_energy[0]), T_INT(max_preamble_delay[0]));
	    
690 691 692 693 694
	    
	    
	    pthread_mutex_lock(&eNB->UL_INFO_mutex);
	    
	    eNB->UL_INFO.rach_ind.number_of_preambles                 = 1;
695 696
	    eNB->UL_INFO.rach_ind.preamble_list                       = &eNB->preamble_list[0];
	    eNB->UL_INFO.rach_ind.tl.tag                              = NFAPI_RACH_INDICATION_BODY_TAG;
697
	    
698
	    eNB->preamble_list[0].preamble_rel8.tl.tag                = NFAPI_PREAMBLE_REL8_TAG;
699 700 701 702 703 704
	    eNB->preamble_list[0].preamble_rel8.timing_advance        = max_preamble_delay[0];
	    eNB->preamble_list[0].preamble_rel8.preamble              = max_preamble[0];
	    eNB->preamble_list[0].preamble_rel8.rnti                  = 1+subframe;  // note: fid is implicitly 0 here
	    eNB->preamble_list[0].preamble_rel13.rach_resource_type   = 0;
	    eNB->preamble_list[0].instance_length                     = 0; //don't know exactly what this is
	    
705
            // If NFAPI PNF then we need to send the message to the VNF
706
            if (nfapi_mode == 1)
707 708 709 710 711
            {
              nfapi_rach_indication_t rach_ind;
              rach_ind.header.message_id = NFAPI_RACH_INDICATION;
              rach_ind.sfn_sf = frame<<4 | subframe;
              rach_ind.rach_indication_body = eNB->UL_INFO.rach_ind;
712

713
              LOG_E(PHY,"\n\n\n\nDJP - this needs to be sent to VNF **********************************************\n\n\n\n");
714 715
              LOG_E(PHY,"Filling NFAPI indication for RACH : SFN_SF:%d TA %d, Preamble %d, rnti %x, rach_resource_type %d\n",
                  NFAPI_SFNSF2DEC(rach_ind.sfn_sf),
716 717 718 719
                  eNB->preamble_list[0].preamble_rel8.timing_advance,
                  eNB->preamble_list[0].preamble_rel8.preamble,
                  eNB->preamble_list[0].preamble_rel8.rnti,
                  eNB->preamble_list[0].preamble_rel13.rach_resource_type);	    
720 721


722 723
              oai_nfapi_rach_ind(&rach_ind);
            }
724

725 726
	    pthread_mutex_unlock(&eNB->UL_INFO_mutex);
      
727
      } // max_preamble_energy > 350
728
    } // else br_flag
729
      /*
730
	mac_xface->initiate_ra_proc(eNB->Mod_id,
731 732 733 734 735 736 737 738 739 740 741 742
	eNB->CC_id,
	frame,
	preamble_max,
	preamble_delay_list[preamble_max]*update_TA/update_TA2,
	0,subframe,0);*/
      
    
    /*  } else {
    MSC_LOG_EVENT(MSC_PHY_ENB, "0 RA Failed add user, too many");
    LOG_I(PHY,"[eNB %d][RAPROC] frame %d, subframe %d: Unable to add user, max user count reached\n",
	  eNB->Mod_id,frame, subframe);
	  }*/
743

744
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PRACH_RX,0);
745 746
}

747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778
void srs_procedures(PHY_VARS_eNB *eNB,eNB_rxtx_proc_t *proc) {

  LTE_DL_FRAME_PARMS *fp = &eNB->frame_parms;
  const int subframe = proc->subframe_rx;
  const int frame = proc->frame_rx;

  int i;

  if (is_srs_occasion_common(fp,frame,subframe)) { 
  
  // Do SRS processing 
  // check if there is SRS and we have to use shortened format
  // TODO: check for exceptions in transmission of SRS together with ACK/NACK
    for (i=0;i<NUMBER_OF_UE_MAX;i++) {

      if (eNB->soundingrs_ul_config_dedicated[i].active==1) {

      
	if (lte_srs_channel_estimation(fp,
				       &eNB->common_vars,
				       &eNB->srs_vars[i],
				       &eNB->soundingrs_ul_config_dedicated[i],
				       subframe,
				       0/*eNB_id*/)) {
	  LOG_E(PHY,"problem processing SRS\n");
	}
	eNB->soundingrs_ul_config_dedicated[i].active=0;
      }
    }
  }
}

779 780
void fill_sr_indication(PHY_VARS_eNB *eNB,uint16_t rnti,int frame,int subframe,uint32_t stat) {
  
781 782 783 784 785
  pthread_mutex_lock(&eNB->UL_INFO_mutex);
  nfapi_sr_indication_pdu_t *pdu =   &eNB->UL_INFO.sr_ind.sr_pdu_list[eNB->UL_INFO.sr_ind.number_of_srs];

  pdu->instance_length                                = 0; // don't know what to do with this
  //  pdu->rx_ue_information.handle                       = handle;
786
  pdu->rx_ue_information.tl.tag                       = NFAPI_RX_UE_INFORMATION_TAG;
787 788
  pdu->rx_ue_information.rnti                         = rnti;

789 790 791 792 793 794 795 796
  int SNRtimes10 = dB_fixed_times10(stat) - 200;//(10*eNB->measurements.n0_power_dB[0]);


  if      (SNRtimes10 < -640) pdu->ul_cqi_information.ul_cqi=0;
  else if (SNRtimes10 >  635) pdu->ul_cqi_information.ul_cqi=255;
  else                        pdu->ul_cqi_information.ul_cqi=(640+SNRtimes10)/5;
  pdu->ul_cqi_information.channel = 0;

797 798 799 800 801
  eNB->UL_INFO.sr_ind.number_of_srs++;
  pthread_mutex_unlock(&eNB->UL_INFO_mutex);
}

void uci_procedures(PHY_VARS_eNB *eNB,eNB_rxtx_proc_t *proc)
Cedric Roux's avatar
Cedric Roux committed
802
{
803
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
804 805
  uint8_t SR_payload = 0,pucch_b0b1[4][2]= {{0,0},{0,0},{0,0},{0,0}},harq_ack[4]={0,0,0,0};
  int32_t metric[4]={0,0,0,0},metric_SR=0,max_metric;
806 807
  const int subframe = proc->subframe_rx;
  const int frame = proc->frame_rx;
808 809 810 811
  int i;
  LTE_eNB_UCI *uci;
  uint16_t tdd_multiplexing_mask=0;
  int res;
812

813
  for (i=0;i<NUMBER_OF_UE_MAX;i++) {
Cedric Roux's avatar
Cedric Roux committed
814

815 816 817 818
    uci = &eNB->uci_vars[i];
    if ((uci->active == 1) &&
	(uci->frame == frame) &&
	(uci->subframe == subframe)) {
Cedric Roux's avatar
Cedric Roux committed
819

820
      LOG_D(PHY,"Frame %d, subframe %d: Running uci procedures (type %d) for %d \n",frame,subframe,uci->type,i);
821
      uci->active=0;
Cedric Roux's avatar
Cedric Roux committed
822

knopp's avatar
knopp committed
823 824 825
      // Null out PUCCH PRBs for noise measurement
      switch(fp->N_RB_UL) {
      case 6:
Cedric Roux's avatar
Cedric Roux committed
826 827
        eNB->rb_mask_ul[0] |= (0x1 | (1<<5)); //position 5
        break;
knopp's avatar
knopp committed
828
      case 15:
Cedric Roux's avatar
Cedric Roux committed
829 830
        eNB->rb_mask_ul[0] |= (0x1 | (1<<14)); // position 14
        break;
knopp's avatar
knopp committed
831
      case 25:
Cedric Roux's avatar
Cedric Roux committed
832 833
        eNB->rb_mask_ul[0] |= (0x1 | (1<<24)); // position 24
        break;
knopp's avatar
knopp committed
834
      case 50:
Cedric Roux's avatar
Cedric Roux committed
835 836 837
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[1] |= (1<<17); // position 49 (49-32)
        break;
knopp's avatar
knopp committed
838
      case 75:
Cedric Roux's avatar
Cedric Roux committed
839 840 841
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[2] |= (1<<10); // position 74 (74-64)
        break;
knopp's avatar
knopp committed
842
      case 100:
Cedric Roux's avatar
Cedric Roux committed
843 844 845
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[3] |= (1<<3); // position 99 (99-96)
        break;
knopp's avatar
knopp committed
846
      default:
Cedric Roux's avatar
Cedric Roux committed
847 848
        LOG_E(PHY,"Unknown number for N_RB_UL %d\n",fp->N_RB_UL);
        break;
knopp's avatar
knopp committed
849
      }
850

851 852 853 854 855 856 857 858
      switch (uci->type) {
      case SR:
      case HARQ_SR:
		
	metric_SR = rx_pucch(eNB,
			      uci->pucch_fmt,
			      i,
			      uci->n_pucch_1_0_sr[0],
859
			      0, // n2_pucch
860
			      uci->srs_active, // shortened format
861 862 863 864
			      &SR_payload,
			      frame,
			      subframe,
			      PUCCH1_THRES);
knopp's avatar
knopp committed
865
	LOG_D(PHY,"[eNB %d][SR %x] Frame %d subframe %d Checking SR is %d (SR n1pucch is %d)\n",
866
	      eNB->Mod_id,
867
	      uci->rnti,
868 869