nr_init.c 25 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
/*
 * 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.1  (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
 */

22
#include "executables/nr-softmodem-common.h"
23
#include "common/utils/nr/nr_common.h"
24 25
#include "PHY/defs_gNB.h"
#include "PHY/phy_extern.h"
26
#include "PHY/NR_REFSIG/nr_refsig.h"
27
#include "PHY/INIT/phy_init.h"
Guy De Souza's avatar
Guy De Souza committed
28
#include "PHY/CODING/nrPolar_tools/nr_polar_pbch_defs.h"
Francesco Mani's avatar
Francesco Mani committed
29
#include "PHY/NR_TRANSPORT/nr_transport_proto.h"
30
#include "PHY/NR_TRANSPORT/nr_transport_common_proto.h"
31
#include "openair1/PHY/MODULATION/nr_modulation.h"
32
/*#include "RadioResourceConfigCommonSIB.h"
33 34
#include "RadioResourceConfigDedicated.h"
#include "TDD-Config.h"
35 36
#include "MBSFN-SubframeConfigList.h"*/
#include "openair1/PHY/defs_RU.h"
37
#include "openair1/PHY/CODING/nrLDPC_extern.h"
38
#include "LAYER2/NR_MAC_gNB/mac_proto.h"
39 40
#include "assertions.h"
#include <math.h>
41

42
#include "PHY/NR_TRANSPORT/nr_ulsch.h"
43
#include "PHY/NR_REFSIG/nr_refsig.h"
44
#include "SCHED_NR/fapi_nr_l1.h"
45
#include "nfapi_nr_interface.h"
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
46

dir's avatar
dir committed
47 48
#include "PHY/NR_REFSIG/ul_ref_seq_nr.h"

49 50 51

int l1_north_init_gNB() {

52
  if (RC.nb_nr_L1_inst > 0 &&  RC.gNB != NULL) {
53

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
54
    AssertFatal(RC.nb_nr_L1_inst>0,"nb_nr_L1_inst=%d\n",RC.nb_nr_L1_inst);
55
    AssertFatal(RC.gNB!=NULL,"RC.gNB is null\n");
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
56
    LOG_I(PHY,"%s() RC.nb_nr_L1_inst:%d\n", __FUNCTION__, RC.nb_nr_L1_inst);
57

58
    for (int i=0; i<RC.nb_nr_L1_inst; i++) {
59 60
      AssertFatal(RC.gNB[i]!=NULL,"RC.gNB[%d] is null\n",i);

61 62
      if ((RC.gNB[i]->if_inst =  NR_IF_Module_init(i))<0) return(-1);
      
63
      LOG_I(PHY,"%s() RC.gNB[%d] installing callbacks\n", __FUNCTION__, i);
64 65
      RC.gNB[i]->if_inst->NR_PHY_config_req = nr_phy_config_request;
      RC.gNB[i]->if_inst->NR_Schedule_response = nr_schedule_response;
66
    }
67
  } else {
68
    LOG_I(PHY,"%s() Not installing PHY callbacks - RC.nb_nr_L1_inst:%d RC.gNB:%p\n", __FUNCTION__, RC.nb_nr_L1_inst, RC.gNB);
69
  }
70

71 72 73 74 75
  return(0);
}


int phy_init_nr_gNB(PHY_VARS_gNB *gNB,
76
                    unsigned char is_secondary_gNB,
77
                    unsigned char lowmem_flag) {
78
  // shortcuts
79
  NR_DL_FRAME_PARMS *const fp       = &gNB->frame_parms;
80
  nfapi_nr_config_request_scf_t *cfg = &gNB->gNB_config;
81
  NR_gNB_COMMON *const common_vars  = &gNB->common_vars;
82
  NR_gNB_PRACH *const prach_vars   = &gNB->prach_vars;
83
  NR_gNB_PUSCH **const pusch_vars   = gNB->pusch_vars;
84

85
  int i;
86 87
  int Ptx=cfg->carrier_config.num_tx_ant.value;
  int Prx=cfg->carrier_config.num_rx_ant.value;
88
  int max_ul_mimo_layers = 4;
89

90 91
  AssertFatal(Ptx>0 && Ptx<9,"Ptx %d is not supported\n",Ptx);
  AssertFatal(Prx>0 && Prx<9,"Prx %d is not supported\n",Prx);
92
  LOG_I(PHY,"[gNB %d] %s() About to wait for gNB to be configured\n", gNB->Mod_id, __FUNCTION__);
93

94
  while(gNB->configured == 0) usleep(10000);
95

96 97 98 99 100 101 102 103 104
  if (lowmem_flag == 1) {
    gNB->number_of_nr_dlsch_max = 2;
    gNB->number_of_nr_ulsch_max = 2;
  }
  else {
    gNB->number_of_nr_dlsch_max = NUMBER_OF_NR_DLSCH_MAX;
    gNB->number_of_nr_ulsch_max = NUMBER_OF_NR_ULSCH_MAX;
  }  

frtabu's avatar
frtabu committed
105
  load_dftslib();
cig's avatar
cig committed
106

107
  LOG_D(PHY,"[MSC_NEW][FRAME 00000][PHY_gNB][MOD %02"PRIu8"][]\n", gNB->Mod_id);
108
  crcTableInit();
109 110
  init_scrambling_luts();
  init_pucch2_luts();
111
  load_nrLDPClib();
Guy De Souza's avatar
Guy De Souza committed
112
  // PBCH DMRS gold sequences generation
Guy De Souza's avatar
Guy De Souza committed
113
  nr_init_pbch_dmrs(gNB);
114
  //PDCCH DMRS init
115
  gNB->nr_gold_pdcch_dmrs = (uint32_t ***)malloc16(fp->slots_per_frame*sizeof(uint32_t **));
Guy De Souza's avatar
Guy De Souza committed
116
  uint32_t ***pdcch_dmrs             = gNB->nr_gold_pdcch_dmrs;
Guy De Souza's avatar
Guy De Souza committed
117
  AssertFatal(pdcch_dmrs!=NULL, "NR init: pdcch_dmrs malloc failed\n");
118

119 120
  gNB->bad_pucch = 0;

Guy De Souza's avatar
Guy De Souza committed
121
  for (int slot=0; slot<fp->slots_per_frame; slot++) {
122
    pdcch_dmrs[slot] = (uint32_t **)malloc16(fp->symbols_per_slot*sizeof(uint32_t *));
Guy De Souza's avatar
Guy De Souza committed
123
    AssertFatal(pdcch_dmrs[slot]!=NULL, "NR init: pdcch_dmrs for slot %d - malloc failed\n", slot);
124 125

    for (int symb=0; symb<fp->symbols_per_slot; symb++) {
Guy De Souza's avatar
Guy De Souza committed
126
      pdcch_dmrs[slot][symb] = (uint32_t *)malloc16(NR_MAX_PDCCH_DMRS_INIT_LENGTH_DWORD*sizeof(uint32_t));
Guy De Souza's avatar
Guy De Souza committed
127 128
      AssertFatal(pdcch_dmrs[slot][symb]!=NULL, "NR init: pdcch_dmrs for slot %d symbol %d - malloc failed\n", slot, symb);
    }
Guy De Souza's avatar
Guy De Souza committed
129
  }
130

131
  nr_generate_modulation_table();
132
  nr_init_pdcch_dmrs(gNB, cfg->cell_config.phy_cell_id.value);
Guy De Souza's avatar
Guy De Souza committed
133
  nr_init_pbch_interleaver(gNB->nr_pbch_interleaver);
134

135 136 137
  //PDSCH DMRS init
  gNB->nr_gold_pdsch_dmrs = (uint32_t ****)malloc16(fp->slots_per_frame*sizeof(uint32_t ***));
  uint32_t ****pdsch_dmrs             = gNB->nr_gold_pdsch_dmrs;
Guy De Souza's avatar
Guy De Souza committed
138

139 140
  for (int slot=0; slot<fp->slots_per_frame; slot++) {
    pdsch_dmrs[slot] = (uint32_t ***)malloc16(fp->symbols_per_slot*sizeof(uint32_t **));
ISIP CS/NCTU's avatar
ISIP CS/NCTU committed
141
    AssertFatal(pdsch_dmrs[slot]!=NULL, "NR init: pdsch_dmrs for slot %d - malloc failed\n", slot);
142 143 144

    for (int symb=0; symb<fp->symbols_per_slot; symb++) {
      pdsch_dmrs[slot][symb] = (uint32_t **)malloc16(NR_MAX_NB_CODEWORDS*sizeof(uint32_t *));
ISIP CS/NCTU's avatar
ISIP CS/NCTU committed
145
      AssertFatal(pdsch_dmrs[slot][symb]!=NULL, "NR init: pdsch_dmrs for slot %d symbol %d - malloc failed\n", slot, symb);
146

Guy De Souza's avatar
Guy De Souza committed
147
      for (int q=0; q<NR_MAX_NB_CODEWORDS; q++) {
148
        pdsch_dmrs[slot][symb][q] = (uint32_t *)malloc16(NR_MAX_PDSCH_DMRS_INIT_LENGTH_DWORD*sizeof(uint32_t));
Guy De Souza's avatar
Guy De Souza committed
149 150
        AssertFatal(pdsch_dmrs[slot][symb][q]!=NULL, "NR init: pdsch_dmrs for slot %d symbol %d codeword %d - malloc failed\n", slot, symb, q);
      }
ISIP CS/NCTU's avatar
ISIP CS/NCTU committed
151 152
    }
  }
153

154
  nr_init_pdsch_dmrs(gNB, cfg->cell_config.phy_cell_id.value);
155

156 157
  //PUSCH DMRS init
  gNB->nr_gold_pusch_dmrs = (uint32_t ****)malloc16(2*sizeof(uint32_t ***));
158

159
  uint32_t ****pusch_dmrs = gNB->nr_gold_pusch_dmrs;
160 161 162 163 164 165 166 167

  for(int nscid=0; nscid<2; nscid++) {
    pusch_dmrs[nscid] = (uint32_t ***)malloc16(fp->slots_per_frame*sizeof(uint32_t **));
    AssertFatal(pusch_dmrs[nscid]!=NULL, "NR init: pusch_dmrs for nscid %d - malloc failed\n", nscid);

    for (int slot=0; slot<fp->slots_per_frame; slot++) {
      pusch_dmrs[nscid][slot] = (uint32_t **)malloc16(fp->symbols_per_slot*sizeof(uint32_t *));
      AssertFatal(pusch_dmrs[nscid][slot]!=NULL, "NR init: pusch_dmrs for slot %d - malloc failed\n", slot);
168

169 170 171 172 173
      for (int symb=0; symb<fp->symbols_per_slot; symb++) {
        pusch_dmrs[nscid][slot][symb] = (uint32_t *)malloc16(NR_MAX_PUSCH_DMRS_INIT_LENGTH_DWORD*sizeof(uint32_t));
        AssertFatal(pusch_dmrs[nscid][slot][symb]!=NULL, "NR init: pusch_dmrs for slot %d symbol %d - malloc failed\n", slot, symb);
      }
    }
174 175
  }

176
  uint32_t Nid_pusch[2] = {cfg->cell_config.phy_cell_id.value,cfg->cell_config.phy_cell_id.value};
177
  LOG_D(PHY,"Initializing PUSCH DMRS Gold sequence with (%x,%x)\n",Nid_pusch[0],Nid_pusch[1]);
178 179
  nr_gold_pusch(gNB, &Nid_pusch[0]);

180 181 182 183 184 185 186 187 188 189 190 191 192 193 194
  //CSI RS init
  gNB->nr_gold_csi_rs = (uint32_t ***)malloc16(fp->slots_per_frame*sizeof(uint32_t **));
  uint32_t ***csi_rs = gNB->nr_gold_csi_rs;
  AssertFatal(csi_rs!=NULL, "NR init: csi reference signal malloc failed\n");

  for (int slot=0; slot<fp->slots_per_frame; slot++) {
    csi_rs[slot] = (uint32_t **)malloc16(fp->symbols_per_slot*sizeof(uint32_t *));
    AssertFatal(csi_rs[slot]!=NULL, "NR init: csi reference signal for slot %d - malloc failed\n", slot);

    for (int symb=0; symb<fp->symbols_per_slot; symb++) {
      csi_rs[slot][symb] = (uint32_t *)malloc16(NR_MAX_CSI_RS_INIT_LENGTH_DWORD*sizeof(uint32_t));
      AssertFatal(csi_rs[slot][symb]!=NULL, "NR init: csi reference signal for slot %d symbol %d - malloc failed\n", slot, symb);
    }
  }

195 196
  nr_init_csi_rs(gNB, cfg->cell_config.phy_cell_id.value);

dir's avatar
dir committed
197 198
  /* Generate low PAPR type 1 sequences for PUSCH DMRS, these are used if transform precoding is enabled.  */
  generate_lowpapr_typ1_refsig_sequences(SHRT_MAX);
199

Guy De Souza's avatar
Guy De Souza committed
200 201
  /// Transport init necessary for NR synchro
  init_nr_transport(gNB);
202

203
  gNB->first_run_I0_measurements = 1;
204

205 206 207
  common_vars->rxdata  = (int32_t **)malloc16(Prx*sizeof(int32_t*));
  common_vars->txdataF = (int32_t **)malloc16(Ptx*sizeof(int32_t*));
  common_vars->rxdataF = (int32_t **)malloc16(Prx*sizeof(int32_t*));
208
  common_vars->beam_id = (uint8_t **)malloc16(Ptx*sizeof(uint8_t*));
209

210 211
  for (i=0;i<Ptx;i++){
      common_vars->txdataF[i] = (int32_t*)malloc16_clear(fp->samples_per_frame_wCP*sizeof(int32_t)); // [hna] samples_per_frame without CP
212
      LOG_D(PHY,"[INIT] common_vars->txdataF[%d] = %p (%lu bytes)\n",
213 214
	    i,common_vars->txdataF[i],
	    fp->samples_per_frame_wCP*sizeof(int32_t));
215
      common_vars->beam_id[i] = (uint8_t*)malloc16_clear(fp->symbols_per_slot*fp->slots_per_frame*sizeof(uint8_t));
Florian Kaltenberger's avatar
Florian Kaltenberger committed
216
      memset(common_vars->beam_id[i],255,fp->symbols_per_slot*fp->slots_per_frame);
217
  }
218 219 220 221
  for (i=0;i<Prx;i++){
    common_vars->rxdataF[i] = (int32_t*)malloc16_clear(fp->samples_per_frame_wCP*sizeof(int32_t));
    common_vars->rxdata[i] = (int32_t*)malloc16_clear(fp->samples_per_frame*sizeof(int32_t));
  }
222 223
  common_vars->debugBuff = (int32_t*)malloc16_clear(fp->samples_per_frame*sizeof(int32_t)*100);	
  common_vars->debugBuff_sample_offset = 0; 
224

225

226
  // Channel estimates for SRS
227
/*
228
  for (UE_id=0; UE_id<NUMBER_OF_UE_MAX; UE_id++) {
229 230 231
    srs_vars[UE_id].srs_ch_estimates      = (int32_t **)malloc16( 64*sizeof(int32_t *) );
    srs_vars[UE_id].srs_ch_estimates_time = (int32_t **)malloc16( 64*sizeof(int32_t *) );

232
    for (i=0; i<64; i++) {
233 234
      srs_vars[UE_id].srs_ch_estimates[i]      = (int32_t *)malloc16_clear( sizeof(int32_t)*fp->ofdm_symbol_size );
      srs_vars[UE_id].srs_ch_estimates_time[i] = (int32_t *)malloc16_clear( sizeof(int32_t)*fp->ofdm_symbol_size*2 );
235 236
    }
  } //UE_id
237
*/
238
  /*generate_ul_ref_sigs_rx();
239

240 241
  init_ulsch_power_LUT();*/

242
/*
243 244
  // SRS
  for (UE_id=0; UE_id<NUMBER_OF_UE_MAX; UE_id++) {
245
    srs_vars[UE_id].srs = (int32_t *)malloc16_clear(2*fp->ofdm_symbol_size*sizeof(int32_t));
246
  }
247
*/
248
  // PRACH
249
  prach_vars->prachF = (int16_t *)malloc16_clear( 1024*2*sizeof(int16_t) );
250 251 252 253 254 255
  prach_vars->rxsigF = (int16_t **)malloc16_clear(Prx*sizeof(int16_t*));
  /* 
  for (i=0;i<Prx;i++){
    prach_vars->rxsigF[i] = (int16_t *)malloc16_clear( 1024*2*sizeof(int16_t) );
  }
  */
256
  prach_vars->prach_ifft       = (int32_t *)malloc16_clear(1024*2*sizeof(int32_t));
257

258 259
  init_prach_list(gNB);

260
  int N_RB_UL = cfg->carrier_config.ul_grid_size[cfg->ssb_config.scs_common.value].value;
261
  int n_buf = Prx*max_ul_mimo_layers;
262

263
  for (int ULSCH_id=0; ULSCH_id<gNB->number_of_nr_ulsch_max; ULSCH_id++) {
Raymond Knopp's avatar
Raymond Knopp committed
264
    pusch_vars[ULSCH_id] = (NR_gNB_PUSCH *)malloc16_clear( sizeof(NR_gNB_PUSCH) );
265 266
    pusch_vars[ULSCH_id]->rxdataF_ext           = (int32_t **)malloc16(Prx*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->rxdataF_ext2          = (int32_t **)malloc16(Prx*sizeof(int32_t *) );
267 268 269 270 271 272 273 274 275 276 277 278
    pusch_vars[ULSCH_id]->ul_ch_estimates       = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_estimates_ext   = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates     = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates_ext = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ptrs_phase_per_slot   = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_estimates_time  = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->rxdataF_comp          = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_mag0            = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_magb0           = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_mag             = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->ul_ch_magb            = (int32_t **)malloc16(n_buf*sizeof(int32_t *) );
    pusch_vars[ULSCH_id]->rho                   = (int32_t **)malloc16_clear(n_buf*sizeof(int32_t*) );
279 280

    for (i=0; i<Prx; i++) {
281 282
      pusch_vars[ULSCH_id]->rxdataF_ext[i]           = (int32_t *)malloc16_clear( sizeof(int32_t)*N_RB_UL*12*fp->symbols_per_slot );
      pusch_vars[ULSCH_id]->rxdataF_ext2[i]          = (int32_t *)malloc16_clear( sizeof(int32_t)*N_RB_UL*12*fp->symbols_per_slot );
283 284
    }
    for (i=0; i<n_buf; i++) {
285
      pusch_vars[ULSCH_id]->ul_ch_estimates[i]       = (int32_t *)malloc16_clear( sizeof(int32_t)*fp->ofdm_symbol_size*2*fp->symbols_per_slot );
286
      pusch_vars[ULSCH_id]->ul_ch_estimates_ext[i]   = (int32_t *)malloc16_clear( sizeof(int32_t)*N_RB_UL*12*fp->symbols_per_slot );
Raymond Knopp's avatar
Raymond Knopp committed
287
      pusch_vars[ULSCH_id]->ul_ch_estimates_time[i]  = (int32_t *)malloc16_clear( 2*sizeof(int32_t)*fp->ofdm_symbol_size );
Raymond Knopp's avatar
Raymond Knopp committed
288
      pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates[i]       = (int32_t *)malloc16_clear( sizeof(int32_t)*fp->ofdm_symbol_size*2*fp->symbols_per_slot ); // max intensity in freq is 1 sc every 2 RBs
289
      pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates_ext[i]   = (int32_t *)malloc16_clear( sizeof(int32_t)*N_RB_UL*12*fp->symbols_per_slot );
290
      pusch_vars[ULSCH_id]->ptrs_phase_per_slot[i]   = (int32_t *)malloc16_clear( sizeof(int32_t)*fp->symbols_per_slot); // symbols per slot
291
      pusch_vars[ULSCH_id]->rxdataF_comp[i]          = (int32_t *)malloc16_clear( sizeof(int32_t)*N_RB_UL*12*fp->symbols_per_slot );
292 293
      pusch_vars[ULSCH_id]->ul_ch_mag0[i]            = (int32_t *)malloc16_clear( fp->symbols_per_slot*sizeof(int32_t)*N_RB_UL*12 );
      pusch_vars[ULSCH_id]->ul_ch_magb0[i]           = (int32_t *)malloc16_clear( fp->symbols_per_slot*sizeof(int32_t)*N_RB_UL*12 );
294 295
      pusch_vars[ULSCH_id]->ul_ch_mag[i]             = (int32_t *)malloc16_clear( fp->symbols_per_slot*sizeof(int32_t)*N_RB_UL*12 );
      pusch_vars[ULSCH_id]->ul_ch_magb[i]            = (int32_t *)malloc16_clear( fp->symbols_per_slot*sizeof(int32_t)*N_RB_UL*12 );
Raymond Knopp's avatar
Raymond Knopp committed
296
      pusch_vars[ULSCH_id]->rho[i]                   = (int32_t *)malloc16_clear( sizeof(int32_t)*(fp->N_RB_UL*12*7*2) );
297
    }
298
    pusch_vars[ULSCH_id]->llr = (int16_t *)malloc16_clear( (8*((3*8*6144)+12))*sizeof(int16_t) ); // [hna] 6144 is LTE and (8*((3*8*6144)+12)) is not clear
299
    pusch_vars[ULSCH_id]->ul_valid_re_per_slot  = (int16_t *)malloc16_clear( sizeof(int16_t)*fp->symbols_per_slot);
300
  } //ulsch_id
301
/*
302 303
  for (ulsch_id=0; ulsch_id<NUMBER_OF_UE_MAX; ulsch_id++)
    gNB->UE_stats_ptr[ulsch_id] = &gNB->UE_stats[ulsch_id];
304
*/
305 306 307
  return (0);
}

308 309
void phy_free_nr_gNB(PHY_VARS_gNB *gNB)
{
310
  NR_DL_FRAME_PARMS* const fp       = &gNB->frame_parms;
311
  NR_gNB_COMMON *const common_vars  = &gNB->common_vars;
312
  NR_gNB_PUSCH **const pusch_vars   = gNB->pusch_vars;
313
  /*LTE_eNB_SRS *const srs_vars        = gNB->srs_vars;
314
  LTE_eNB_PRACH *const prach_vars    = &gNB->prach_vars;*/
315
  uint32_t ***pdcch_dmrs             = gNB->nr_gold_pdcch_dmrs;
316
  int Ptx=gNB->gNB_config.carrier_config.num_tx_ant.value;
317

318
  for (int i = 0; i < Ptx; i++) {
319
    free_and_zero(common_vars->txdataF[i]);
320
    /* rxdataF[i] is not allocated -> don't free */
321
  }
322

323 324
  free_and_zero(common_vars->txdataF);
  free_and_zero(common_vars->rxdataF);
325 326
  // PDCCH DMRS sequences
  free_and_zero(pdcch_dmrs);
327
/*
328 329 330 331 332 333
  // Channel estimates for SRS
  for (UE_id = 0; UE_id < NUMBER_OF_UE_MAX; UE_id++) {
    for (i=0; i<64; i++) {
      free_and_zero(srs_vars[UE_id].srs_ch_estimates[i]);
      free_and_zero(srs_vars[UE_id].srs_ch_estimates_time[i]);
    }
334

335 336 337 338
    free_and_zero(srs_vars[UE_id].srs_ch_estimates);
    free_and_zero(srs_vars[UE_id].srs_ch_estimates_time);
  } //UE_id

339
  //free_ul_ref_sigs();
340 341 342 343 344 345 346

  for (UE_id=0; UE_id<NUMBER_OF_UE_MAX; UE_id++) free_and_zero(srs_vars[UE_id].srs);

  free_and_zero(prach_vars->prachF);

  for (i = 0; i < 64; i++) free_and_zero(prach_vars->prach_ifft[0][i]);

347
  free_and_zero(prach_vars->prach_ifft[0]);
348
  free_and_zero(prach_vars->rxsigF[0]);
349
*/
350
  for (int ULSCH_id=0; ULSCH_id<gNB->number_of_nr_ulsch_max; ULSCH_id++) {
351
    for (int i = 0; i < fp->nb_antennas_rx; i++) {
Raymond Knopp's avatar
Raymond Knopp committed
352 353
      free_and_zero(pusch_vars[ULSCH_id]->rxdataF_ext[i]);
      free_and_zero(pusch_vars[ULSCH_id]->rxdataF_ext2[i]);
354 355
    }
    for (int i = 0; i < 4*fp->nb_antennas_rx; i++) {
Raymond Knopp's avatar
Raymond Knopp committed
356 357 358
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates_ext[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates_time[i]);
Raymond Knopp's avatar
Raymond Knopp committed
359 360
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates_ext[i]);
361
      free_and_zero(pusch_vars[ULSCH_id]->ptrs_phase_per_slot[i]);
Raymond Knopp's avatar
Raymond Knopp committed
362 363 364 365 366 367
      free_and_zero(pusch_vars[ULSCH_id]->rxdataF_comp[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_mag0[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_magb0[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_mag[i]);
      free_and_zero(pusch_vars[ULSCH_id]->ul_ch_magb[i]);
      free_and_zero(pusch_vars[ULSCH_id]->rho[i]);
368
    }
Raymond Knopp's avatar
Raymond Knopp committed
369 370 371 372
    free_and_zero(pusch_vars[ULSCH_id]->rxdataF_ext);
    free_and_zero(pusch_vars[ULSCH_id]->rxdataF_ext2);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates_ext);
Raymond Knopp's avatar
Raymond Knopp committed
373 374
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_ptrs_estimates_ext);
Raymond Knopp's avatar
Raymond Knopp committed
375
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_estimates_time);
376
    free_and_zero(pusch_vars[ULSCH_id]->ptrs_phase_per_slot);
377
    free_and_zero(pusch_vars[ULSCH_id]->ul_valid_re_per_slot);
Raymond Knopp's avatar
Raymond Knopp committed
378 379 380 381 382 383 384 385 386 387
    free_and_zero(pusch_vars[ULSCH_id]->rxdataF_comp);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_mag0);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_magb0);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_mag);
    free_and_zero(pusch_vars[ULSCH_id]->ul_ch_magb);
    free_and_zero(pusch_vars[ULSCH_id]->rho);

    free_and_zero(pusch_vars[ULSCH_id]->llr);
    free_and_zero(pusch_vars[ULSCH_id]);
  } //ULSCH_id
388
/*
389
  for (UE_id = 0; UE_id < NUMBER_OF_UE_MAX; UE_id++) gNB->UE_stats_ptr[UE_id] = NULL;
390
*/
dir's avatar
dir committed
391 392 393 394 395


  free_gnb_lowpapr_sequences();


396
}
MaheshK1995's avatar
MaheshK1995 committed
397 398 399 400 401 402 403

//Adding nr_schedule_handler
void install_nr_schedule_handlers(NR_IF_Module_t *if_inst)
{
  if_inst->NR_PHY_config_req = nr_phy_config_request;
  if_inst->NR_Schedule_response = nr_schedule_response;
}
Guy De Souza's avatar
Guy De Souza committed
404
/*
405 406 407 408
void install_schedule_handlers(IF_Module_t *if_inst)
{
  if_inst->PHY_config_req = phy_config_request;
  if_inst->schedule_response = schedule_response;
Guy De Souza's avatar
Guy De Souza committed
409
}*/
Guy De Souza's avatar
Guy De Souza committed
410 411

/// this function is a temporary addition for NR configuration
412

413

414 415 416 417 418 419 420 421
void nr_phy_config_request_sim(PHY_VARS_gNB *gNB,
                               int N_RB_DL,
                               int N_RB_UL,
                               int mu,
                               int Nid_cell,
                               uint64_t position_in_burst)
{
  NR_DL_FRAME_PARMS *fp                                   = &gNB->frame_parms;
422
  nfapi_nr_config_request_scf_t *gNB_config               = &gNB->gNB_config;
Guy De Souza's avatar
Guy De Souza committed
423
  //overwrite for new NR parameters
424

425 426 427 428
  uint64_t rev_burst=0;
  for (int i=0; i<64; i++)
    rev_burst |= (((position_in_burst>>(63-i))&0x01)<<i);

429 430 431
  gNB_config->cell_config.phy_cell_id.value             = Nid_cell;
  gNB_config->ssb_config.scs_common.value               = mu;
  gNB_config->ssb_table.ssb_subcarrier_offset.value     = 0;
Francesco Mani's avatar
Francesco Mani committed
432
  gNB_config->ssb_table.ssb_offset_point_a.value        = (N_RB_DL-20)>>1;
433 434
  gNB_config->ssb_table.ssb_mask_list[1].ssb_mask.value = (rev_burst)&(0xFFFFFFFF);
  gNB_config->ssb_table.ssb_mask_list[0].ssb_mask.value = (rev_burst>>32)&(0xFFFFFFFF);
435 436 437 438
  gNB_config->cell_config.frame_duplex_type.value       = TDD;
  gNB_config->ssb_table.ssb_period.value		= 1; //10ms
  gNB_config->carrier_config.dl_grid_size[mu].value     = N_RB_DL;
  gNB_config->carrier_config.ul_grid_size[mu].value     = N_RB_UL;
439 440
  gNB_config->carrier_config.num_tx_ant.value           = fp->nb_antennas_tx;
  gNB_config->carrier_config.num_rx_ant.value           = fp->nb_antennas_rx;
441

442
  gNB_config->tdd_table.tdd_period.value = 0;
443
  //gNB_config->subframe_config.dl_cyclic_prefix_type.value = (fp->Ncp == NORMAL) ? NFAPI_CP_NORMAL : NFAPI_CP_EXTENDED;
444

445
  gNB->mac_enabled   = 1;
446
  if (mu==1) {
447 448
    fp->dl_CarrierFreq = 3600000000;//from_nrarfcn(gNB_config->nfapi_config.rf_bands.rf_band[0],gNB_config->nfapi_config.nrarfcn.value);
    fp->ul_CarrierFreq = 3600000000;//fp->dl_CarrierFreq - (get_uldl_offset(gNB_config->nfapi_config.rf_bands.rf_band[0])*100000);
449 450 451 452 453 454 455 456
    fp->nr_band = 78;
    //  fp->threequarter_fs= 0;
  } else if (mu==3) {
    fp->dl_CarrierFreq = 27524520000;//from_nrarfcn(gNB_config->nfapi_config.rf_bands.rf_band[0],gNB_config->nfapi_config.nrarfcn.value);
    fp->ul_CarrierFreq = 27524520000;//fp->dl_CarrierFreq - (get_uldl_offset(gNB_config->nfapi_config.rf_bands.rf_band[0])*100000);
    fp->nr_band = 261;
    //  fp->threequarter_fs= 0;
  }
457 458

  fp->threequarter_fs = 0;
459 460
  gNB_config->carrier_config.dl_bandwidth.value = config_bandwidth(mu, N_RB_DL, fp->nr_band);

Guy De Souza's avatar
Guy De Souza committed
461
  nr_init_frame_parms(gNB_config, fp);
462
  gNB->configured    = 1;
Guy De Souza's avatar
Guy De Souza committed
463
  LOG_I(PHY,"gNB configured\n");
464
}
465 466


467
void nr_phy_config_request(NR_PHY_Config_t *phy_config) {
468
  uint8_t Mod_id = phy_config->Mod_id;
469
  uint8_t short_sequence, num_sequences, rootSequenceIndex, fd_occasion;
470 471 472
  NR_DL_FRAME_PARMS *fp = &RC.gNB[Mod_id]->frame_parms;
  nfapi_nr_config_request_scf_t *gNB_config = &RC.gNB[Mod_id]->gNB_config;

Raymond Knopp's avatar
Raymond Knopp committed
473
  memcpy((void*)gNB_config,phy_config->cfg,sizeof(*phy_config->cfg));
474
  RC.gNB[Mod_id]->mac_enabled     = 1;
475 476 477

  uint64_t dl_bw_khz = (12*gNB_config->carrier_config.dl_grid_size[gNB_config->ssb_config.scs_common.value].value)*(15<<gNB_config->ssb_config.scs_common.value);
  fp->dl_CarrierFreq = ((dl_bw_khz>>1) + gNB_config->carrier_config.dl_frequency.value)*1000 ;
478
  
479 480
  uint64_t ul_bw_khz = (12*gNB_config->carrier_config.ul_grid_size[gNB_config->ssb_config.scs_common.value].value)*(15<<gNB_config->ssb_config.scs_common.value);
  fp->ul_CarrierFreq = ((ul_bw_khz>>1) + gNB_config->carrier_config.uplink_frequency.value)*1000 ;
Raymond Knopp's avatar
Raymond Knopp committed
481

482 483
  int32_t dlul_offset = fp->ul_CarrierFreq - fp->dl_CarrierFreq;
  fp->nr_band = get_band(fp->dl_CarrierFreq, dlul_offset);
484 485 486

  LOG_I(PHY, "DL frequency %lu Hz, UL frequency %lu Hz: band %d, uldl offset %d Hz\n", fp->dl_CarrierFreq, fp->ul_CarrierFreq, fp->nr_band, dlul_offset);

487 488
  fp->threequarter_fs = openair0_cfg[0].threequarter_fs;
  LOG_I(PHY,"Configuring MIB for instance %d, : (Nid_cell %d,DL freq %llu, UL freq %llu)\n",
489
        Mod_id,
490
        gNB_config->cell_config.phy_cell_id.value,
Raymond Knopp's avatar
Raymond Knopp committed
491 492
        (unsigned long long)fp->dl_CarrierFreq,
        (unsigned long long)fp->ul_CarrierFreq);
493

494
  nr_init_frame_parms(gNB_config, fp);
Rakesh's avatar
Rakesh committed
495
  
496

497
  if (RC.gNB[Mod_id]->configured == 1) {
498 499 500 501
    LOG_E(PHY,"Already gNB already configured, do nothing\n");
    return;
  }

502 503 504
  fd_occasion = 0;
  nfapi_nr_prach_config_t *prach_config = &gNB_config->prach_config;
  short_sequence = prach_config->prach_sequence_length.value;
505
//  for(fd_occasion = 0; fd_occasion <= prach_config->num_prach_fd_occasions.value ; fd_occasion) { // TODO Need to handle for msg1-fdm > 1
506 507 508 509
  num_sequences = prach_config->num_prach_fd_occasions_list[fd_occasion].num_root_sequences.value;
  rootSequenceIndex = prach_config->num_prach_fd_occasions_list[fd_occasion].prach_root_sequence_index.value;

  compute_nr_prach_seq(short_sequence, num_sequences, rootSequenceIndex, RC.gNB[Mod_id]->X_u);
510
//  }
511
  RC.gNB[Mod_id]->configured     = 1;
512

513
  init_symbol_rotation(fp);
514

515
  LOG_I(PHY,"gNB %d configured\n",Mod_id);
Guy De Souza's avatar
Guy De Souza committed
516
}
517

Mahesh's avatar
Mahesh committed
518

519 520 521 522
void init_nr_transport(PHY_VARS_gNB *gNB) {
  int i;
  int j;
  NR_DL_FRAME_PARMS *fp = &gNB->frame_parms;
523
  nfapi_nr_config_request_scf_t *cfg = &gNB->gNB_config;
524
  LOG_I(PHY, "Initialise nr transport\n");
525
  uint16_t grid_size = cfg->carrier_config.dl_grid_size[fp->numerology_index].value;
526

527 528
  memset(gNB->num_pdsch_rnti, 0, sizeof(uint16_t)*80);

529 530 531 532 533 534 535
  for (i=0; i <NUMBER_OF_NR_PDCCH_MAX; i++) {
    LOG_I(PHY,"Initializing PDCCH list for PDCCH %d/%d\n",i,NUMBER_OF_NR_PDCCH_MAX);
    gNB->pdcch_pdu[i].frame=-1;
    LOG_I(PHY,"Initializing UL PDCCH list for UL PDCCH %d/%d\n",i,NUMBER_OF_NR_PDCCH_MAX);
    gNB->ul_pdcch_pdu[i].frame=-1;
  }
    
Francesco Mani's avatar
Francesco Mani committed
536 537 538 539 540 541
  for (i=0; i<NUMBER_OF_NR_PUCCH_MAX; i++) {
    LOG_I(PHY,"Allocating Transport Channel Buffers for PUCCH %d/%d\n",i,NUMBER_OF_NR_PUCCH_MAX);
    gNB->pucch[i] = new_gNB_pucch();
    AssertFatal(gNB->pucch[i]!=NULL,"Can't initialize pucch %d \n", i);
  }

542
  for (i=0; i<gNB->number_of_nr_dlsch_max; i++) {
543

544
    LOG_I(PHY,"Allocating Transport Channel Buffers for DLSCH %d/%d\n",i,gNB->number_of_nr_dlsch_max);
545

546
    for (j=0; j<2; j++) {
547
      gNB->dlsch[i][j] = new_gNB_dlsch(fp,1,16,NSOFT,0,grid_size);
548
      AssertFatal(gNB->dlsch[i][j]!=NULL,"Can't initialize dlsch %d \n", i);
549 550
    }
  }
551

552
  for (i=0; i<gNB->number_of_nr_ulsch_max; i++) {
553

554
    LOG_I(PHY,"Allocating Transport Channel Buffer for ULSCH  %d/%d\n",i,gNB->number_of_nr_ulsch_max);
555

556
    for (j=0; j<2; j++) {
557
      // ULSCH for data
558
      gNB->ulsch[i][j] = new_gNB_ulsch(MAX_LDPC_ITERATIONS, fp->N_RB_UL, 0);
559

560
      if (!gNB->ulsch[i][j]) {
561 562 563
        LOG_E(PHY,"Can't get gNB ulsch structures\n");
        exit(-1);
      }
564

565
    }
566

567
  }
568

569
  gNB->rx_total_gain_dB=130;
570 571


572 573
  //fp->pucch_config_common.deltaPUCCH_Shift = 1;
}