phy_procedures_lte_eNb.c 72.3 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)
David Price's avatar
David Price committed
487
488
489
  {
    //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);
  }
490
    
491
  //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);
492

493
494
495
496
497
498
499
500
501
502
503
504
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PDCCH_TX,1);

  if (nfapi_mode == 0 || nfapi_mode == 1) {
    generate_dci_top(num_pdcch_symbols,
        num_dci,
        &eNB->pdcch_vars[subframe&1].dci_alloc[0],
        0,
        AMP,
        fp,
        eNB->common_vars.txdataF,
        subframe);
  }
505

506

gauthier's avatar
gauthier committed
507
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PDCCH_TX,0);
508

509
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_GENERATE_DLSCH,1);
knopp's avatar
   
knopp committed
510
  // Now scan UE specific DLSCH
511
  LTE_eNB_DLSCH_t *dlsch0,*dlsch1;
512
  for (UE_id=0; UE_id<NUMBER_OF_UE_MAX; UE_id++)
513
    {
514
515
516
517
518
519
      dlsch0 = eNB->dlsch[(uint8_t)UE_id][0]; 
      dlsch1 = eNB->dlsch[(uint8_t)UE_id][1]; 

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

521
	// get harq_pid
522
	harq_pid = dlsch0->harq_ids[subframe];
523
	AssertFatal(harq_pid>=0,"harq_pid is negative\n");
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539

        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);
        }
540
541


knopp's avatar
   
knopp committed
542
      }
543

gauthier's avatar
gauthier committed
544

545
      else if ((dlsch0)&&
546
547
          (dlsch0->rnti>0)&&
          (dlsch0->active == 0)) {
548

549
550
        // 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
551
      }
knopp's avatar
   
knopp committed
552
    }
553
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_GENERATE_DLSCH,0);
554

555
556


557
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_GENERATE_PHICH,1);
558
559
560
  generate_phich_top(eNB,
		     proc,
		     AMP);
561
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_GENERATE_PHICH,0);
562

Raymond Knopp's avatar
Raymond Knopp committed
563
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_PROCEDURES_ENB_TX+offset,0);
564
  if (do_meas==1) stop_meas(&eNB->phy_proc_tx);
565
  
566
567
}

568

569
570
571
572
573
574
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
575
  uint16_t i;
576
  int frame,subframe;
knopp's avatar
knopp committed
577

578
579
580
581
#ifdef Rel14
  if (br_flag==1) {
    subframe = eNB->proc.subframe_prach_br;
    frame = eNB->proc.frame_prach_br;
582
    pthread_mutex_lock(&eNB->UL_INFO_mutex);
583
    eNB->UL_INFO.rach_ind_br.rach_indication_body.number_of_preambles=0;
584
    pthread_mutex_unlock(&eNB->UL_INFO_mutex);
585
586
587
588
  }
  else
#endif
    {
589
      pthread_mutex_lock(&eNB->UL_INFO_mutex);
590
      eNB->UL_INFO.rach_ind.rach_indication_body.number_of_preambles=0;
591
      pthread_mutex_unlock(&eNB->UL_INFO_mutex);
592
593
594
      subframe = eNB->proc.subframe_prach;
      frame = eNB->proc.frame_prach;
    }
595
596
597
  RU_t *ru;
  int aa=0;
  int ru_aa;
598

599
 
600
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PRACH_RX,1);
601

602
603


604
605
  for (i=0;i<eNB->num_RU;i++) {
    ru=eNB->RU_list[i];
606
    for (ru_aa=0,aa=0;ru_aa<ru->nb_rx;ru_aa++,aa++) {
607
      eNB->prach_vars.rxsigF[0][aa] = eNB->RU_list[i]->prach_rxsigF[ru_aa];
608
609
610
611
#ifdef Rel14
      int ce_level;

      if (br_flag==1)
612
	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];
613
614
#endif
    }
615
  }
616

617
618
  rx_prach(eNB,
	   eNB->RU_list[0],
619
620
621
	   &max_preamble[0],
	   &max_preamble_energy[0],
	   &max_preamble_delay[0],
622
	   frame,
623
624
625
626
627
	   0
#ifdef Rel14
	   ,br_flag
#endif
	   );
628

629
  //#ifdef DEBUG_PHY_PROC
630
631
  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",
632
        frame,subframe,
633
        max_preamble[0],
634
        max_preamble_energy[0]/10,
635
        max_preamble_delay[0]);
636
  //q#endif
637

638
639
#ifdef Rel14
  if (br_flag==1) {
knopp's avatar
   
knopp committed
640

641
642
643
644
    int prach_mask;
      
    prach_mask = is_prach_subframe(&eNB->frame_parms,eNB->proc.frame_prach_br,eNB->proc.subframe_prach_br);
    
645
    eNB->UL_INFO.rach_ind_br.rach_indication_body.preamble_list                              = eNB->preamble_list_br;
646
647
648
    int ind=0;
    int ce_level=0;
    /* Save for later, it doesn't work    
649
    for (int ind=0,ce_level=0;ce_level<4;ce_level++) {
650
651
652
      
      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
653
654
	  (eNB->prach_vars_br.repetition_number[ce_level]==
	   eNB->frame_parms.prach_emtc_config_common.prach_ConfigInfo.prach_numRepetitionPerPreambleAttempt[ce_level])) {
655
    */ 
656
657
    if (eNB->frame_parms.prach_emtc_config_common.prach_ConfigInfo.prach_CElevel_enable[0]==1){ 
      if (max_preamble_energy[0] > 350) {
658
	eNB->UL_INFO.rach_ind_br.rach_indication_body.number_of_preambles++;
659
660
661
662
663
664
665
	
	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
666
	LOG_D(PHY,"Filling NFAPI indication for RACH %d CELevel %d (mask %x) : TA %d, Preamble %d, rnti %x, rach_resource_type %d\n",
667
668
669
670
671
672
673
674
675
	      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);
      }
      /*
676
677
	ind++;
      }
678
679
      } */// ce_level
    }
680
681
682
  }
  else
#endif
Cedric Roux's avatar
Cedric Roux committed
683

684
    {
685
      if (max_preamble_energy[0] > 350) {
686

687
	LOG_E(PHY,"[eNB %d/%d][RAPROC] Frame %d, subframe %d Initiating RA procedure with preamble %d, energy %d.%d dB, delay %d\n",
688
689
690
691
692
693
694
695
	      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]);
696
	
Cedric Roux's avatar
Cedric Roux committed
697
	    T(T_ENB_PHY_INITIATE_RA_PROCEDURE, T_INT(eNB->Mod_id), T_INT(frame), T_INT(subframe),
698
699
	      T_INT(max_preamble[0]), T_INT(max_preamble_energy[0]), T_INT(max_preamble_delay[0]));
	    
700
701
702
703
	    
	    
	    pthread_mutex_lock(&eNB->UL_INFO_mutex);
	    
704
705
706
707
708
	    eNB->UL_INFO.rach_ind.rach_indication_body.number_of_preambles  = 1;
	    eNB->UL_INFO.rach_ind.rach_indication_body.preamble_list        = &eNB->preamble_list[0];
	    eNB->UL_INFO.rach_ind.rach_indication_body.tl.tag               = NFAPI_RACH_INDICATION_BODY_TAG;
            eNB->UL_INFO.rach_ind.header.message_id                         = NFAPI_RACH_INDICATION;
            eNB->UL_INFO.rach_ind.sfn_sf                                    = frame<<4 | subframe;
709
	    
710
	    eNB->preamble_list[0].preamble_rel8.tl.tag                = NFAPI_PREAMBLE_REL8_TAG;
711
712
713
714
715
716
	    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
	    
David Price's avatar
David Price committed
717
            if (nfapi_mode == 1)    // If NFAPI PNF then we need to send the message to the VNF
718
            {
719
              LOG_E(PHY,"\n\n\n\nDJP - this needs to be sent to VNF **********************************************\n\n\n\n");
720
              LOG_E(PHY,"Filling NFAPI indication for RACH : SFN_SF:%d TA %d, Preamble %d, rnti %x, rach_resource_type %d\n",
721
                  NFAPI_SFNSF2DEC(eNB->UL_INFO.rach_ind.sfn_sf),
722
723
724
725
                  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);	    
726

727
              oai_nfapi_rach_ind(&eNB->UL_INFO.rach_ind);
728

729
              eNB->UL_INFO.rach_ind.rach_indication_body.number_of_preambles = 0;
730
            }
731

732
733
	    pthread_mutex_unlock(&eNB->UL_INFO_mutex);
      
734
      } // max_preamble_energy > 350
735
    } // else br_flag
736
      /*
737
	mac_xface->initiate_ra_proc(eNB->Mod_id,
738
739
740
741
742
743
744
745
746
747
748
749
	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);
	  }*/
750

751
  VCD_SIGNAL_DUMPER_DUMP_FUNCTION_BY_NAME(VCD_SIGNAL_DUMPER_FUNCTIONS_PHY_ENB_PRACH_RX,0);
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
779
780
781
782
783
784
785
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;
      }
    }
  }
}

786
787
void fill_sr_indication(PHY_VARS_eNB *eNB,uint16_t rnti,int frame,int subframe,uint32_t stat) {
  
788
  pthread_mutex_lock(&eNB->UL_INFO_mutex);
789
790
791
792
  nfapi_sr_indication_t       *sr_ind =         &eNB->UL_INFO.sr_ind;
  nfapi_sr_indication_body_t  *sr_ind_body =    &sr_ind->sr_indication_body;
  nfapi_sr_indication_pdu_t *pdu =   &sr_ind_body->sr_pdu_list[sr_ind_body->number_of_srs];

793
794
  sr_ind->sfn_sf = frame<<4|subframe;
  sr_ind->header.message_id = NFAPI_RX_SR_INDICATION;
795
796

  sr_ind_body->tl.tag = NFAPI_SR_INDICATION_BODY_TAG;
797
798
799

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

803
804
805
  int SNRtimes10 = dB_fixed_times10(stat) - 200;//(10*eNB->measurements.n0_power_dB[0]);


806
807
  pdu->ul_cqi_information.tl.tag = NFAPI_UL_CQI_INFORMATION_TAG;

808
809
810
811
812
  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;

813
  sr_ind_body->number_of_srs++;
814
815
816
817
  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
818
{
819
  LTE_DL_FRAME_PARMS *fp=&eNB->frame_parms;
820
821
  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;
822
823
  const int subframe = proc->subframe_rx;
  const int frame = proc->frame_rx;
824
825
826
827
  int i;
  LTE_eNB_UCI *uci;
  uint16_t tdd_multiplexing_mask=0;
  int res;
828

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

831
832
833
834
    uci = &eNB->uci_vars[i];
    if ((uci->active == 1) &&
	(uci->frame == frame) &&
	(uci->subframe == subframe)) {
Cedric Roux's avatar
Cedric Roux committed
835

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

knopp's avatar
knopp committed
839
840
841
      // Null out PUCCH PRBs for noise measurement
      switch(fp->N_RB_UL) {
      case 6:
Cedric Roux's avatar
Cedric Roux committed
842
843
        eNB->rb_mask_ul[0] |= (0x1 | (1<<5)); //position 5
        break;
knopp's avatar
knopp committed
844
      case 15:
Cedric Roux's avatar
Cedric Roux committed
845
846
        eNB->rb_mask_ul[0] |= (0x1 | (1<<14)); // position 14
        break;
knopp's avatar
knopp committed
847
      case 25:
Cedric Roux's avatar
Cedric Roux committed
848
849
        eNB->rb_mask_ul[0] |= (0x1 | (1<<24)); // position 24
        break;
knopp's avatar
knopp committed
850
      case 50:
Cedric Roux's avatar
Cedric Roux committed
851
852
853
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[1] |= (1<<17); // position 49 (49-32)
        break;
knopp's avatar
knopp committed
854
      case 75:
Cedric Roux's avatar
Cedric Roux committed
855
856
857
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[2] |= (1<<10); // position 74 (74-64)
        break;
knopp's avatar
knopp committed
858
      case 100:
Cedric Roux's avatar
Cedric Roux committed
859
860
861
        eNB->rb_mask_ul[0] |= 0x1;
        eNB->rb_mask_ul[3] |= (1<<3); // position 99 (99-96)
        break;
knopp's avatar
knopp committed
862
      default:
Cedric Roux's avatar
Cedric Roux committed
863
864
        LOG_E(PHY,"Unknown number for N_RB_UL %d\n",fp->N_RB_UL);
        break;
knopp's avatar
knopp committed
865
      }
866

867
868
869
870
871
872
873
874
      switch (uci->type) {
      case SR:
      case HARQ_SR:
		
	metric_SR = rx_pucch(eNB,
			      uci->pucch_fmt,
			      i,
			      uci->n_pucch_1_0_sr[0],
875
			      0, // n2_pucch
876
			      uci->srs_active, // shortened format
877
878
879
880
			      &SR_payload,
			      frame,
			      subframe,
			      PUCCH1_THRES);
knopp's avatar
knopp committed
881
	LOG_D(PHY,"[eNB %d][SR %x] Frame %d subframe %d Checking SR is %d (SR n1pucch is %d)\n",
882
	      eNB->Mod_id,
883
	      uci->rnti,
884
885
886
	      frame,
	      subframe,
	      SR_payload,
887
888
889
	      uci->n_pucch_1_0_sr[0]);
	if (uci->type == SR) {
	  if (SR_payload == 1) {
890
	    fill_sr_indication(eNB,uci->rnti,frame,subframe,metric_SR);
891
892
893
894
895
896
897
898
	    return;
	  }
	  else {
	    return;
	  }
	}
      case HARQ:
	if (fp->frame_type == FDD) {
899
	  LOG_D(PHY,"Frame %d Subframe %d Demodulating PUCCH (UCI %d) for ACK/NAK (uci->pucch_fmt %d,uci->type %d.uci->frame %d, uci->subframe %d): n1_pucch0 %d SR_payload %d\n",
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
		frame,subframe,i,
		uci->pucch_fmt,uci->type,
		uci->frame,uci->subframe,uci->n_pucch_1[0][0],
		SR_payload);
	  
	  metric[0] = rx_pucch(eNB,
			       uci->pucch_fmt,
			       i,
			       uci->n_pucch_1[0][0],
			       0, //n2_pucch
			       uci->srs_active, // shortened format
			       pucch_b0b1[0],
			       frame,
			       subframe,
			       PUCCH1a_THRES);
	  
	  
	  /* cancel SR detection if reception on n1_pucch0 is better than on SR PUCCH resource index, otherwise send it up to MAC */
	  if (uci->type==HARQ_SR && metric[0] > metric_SR) SR_payload = 0;
919
	  else if (SR_payload == 1) fill_sr_indication(eNB,uci->rnti,frame,subframe,metric_SR);
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
 
	  if (uci->type==HARQ_SR && metric[0] <= metric_SR) {
	    /* when transmitting ACK/NACK on SR PUCCH resource index, SR payload is always 1 */
	    SR_payload = 1;
	    
	    metric[0]=rx_pucch(eNB,
			       uci->pucch_fmt,
			       i,
			       uci->n_pucch_1_0_sr[0],
			       0, //n2_pucch
			       uci->srs_active, // shortened format
			       pucch_b0b1[0],
			       frame,
			       subframe,
			       PUCCH1a_THRES);
	  }
	  
937

938
	  LOG_D(PHY,"[eNB %d][PDSCH %x] Frame %d subframe %d pucch1a (FDD) payload %d (metric %d)\n",
939
940
941
		eNB->Mod_id,
		uci->rnti,
		frame,subframe,
942
943
		pucch_b0b1[0][0],metric[0]);

944
      uci->stat = metric[0]; 	  
945
	  fill_uci_harq_indication(eNB,uci,frame,subframe,pucch_b0b1[0],0,0xffff);
946

947
948
	}
	else { // frame_type == TDD
knopp's avatar
knopp committed
949

950

951
952
	  // if SR was detected, use the n1_pucch from SR
	  if (SR_payload==1) {
953
#ifdef DEBUG_PHY_PROC