all_mesh2D_allocation Subroutine

subroutine all_mesh2D_allocation(me)
    type(mesh2D_t), intent(inout) :: me
    integer :: NbCells
    
    NbCells=me%M2D_Prop%nb_elements
    allocate(me%StVar%temp(NbCells))
    allocate(me%StVarOld%temp(NbCells))
    allocate(me%StVarOld2%temp(NbCells))
    allocate(me%StVarOld3%temp(NbCells))
    allocate(me%StVarOld4%temp(NbCells))
    allocate(me%StVarOld5%temp(NbCells))
    allocate(me%StVarOld6%temp(NbCells))
    allocate(me%flxS%SomNormQT(NbCells))
    allocate(me%flxS%DerSomNormQT(NbCells))
    allocate(me%flxS%DerNormQTOth2D(NbCells,3))
    ! allocate(me%scen%Q_ext(NbCells))
    allocate(me%big%bmx(NbCells))
    allocate(me%big%dmx(NbCells,3))
      
    me%StVar%temp=0.0_dp; me%StVarOld%temp=0.0_dp
    me%StVarOld2%temp=0.0_dp; me%StVarOld3%temp=0.0_dp
    me%StVarOld4%temp=0.0_dp; me%StVarOld5%temp=0.0_dp; me%StVarOld6%temp=0.0_dp
    me%flxS%SomNormQT=0.0_dp; me%flxS%DerSomNormQT=0.0_dp; me%flxS%DerNormQTOth2D=0.0_dp
    ! me%scen%Q_ext=0.0_dp
    me%big%bmx=0.0_dp;me%big%dmx=0.0_dp
end subroutine all_mesh2D_allocation