all_channel_allocation_nb Subroutine

public subroutine all_channel_allocation_nb(me)

Arguments

Type IntentOptional Attributes Name
type(channel_t), intent(inout) :: me

Called by

proc~~all_channel_allocation_nb~~CalledByGraph proc~all_channel_allocation_nb all_channel_allocation_nb proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~all_channel_allocation_nb program~reims_p reims_p program~reims_p->proc~channel_init_part1

Source Code

subroutine all_channel_allocation_nb(me)
    type(channel_t), intent(inout) :: me
    integer :: NbCells
      
    NbCells=me%HeProp%NbCells
    allocate(me%StVar%He_pr(Nb_VarP,NbCells))
    allocate(me%StVar%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld2%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld2%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld3%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld3%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld4%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld4%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld5%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld5%He_cs(Nb_VarC,NbCells))
    allocate(me%StVarOld6%He_pr(Nb_VarP,NbCells))
    allocate(me%StVarOld6%He_cs(Nb_VarC,NbCells))
    allocate(me%flxHe%Cons(Nb_VarC,0:NbCells))
    allocate(me%flxHe%VitTNC(0:NbCells))
    allocate(me%flxHe%Cons_DerdUL(Nb_VarC,Nb_VarC,0:NbCells))
    allocate(me%flxHe%Cons_DerdUR(Nb_VarC,Nb_VarC,0:NbCells))
    allocate(me%flxHe%VitTNC_DerdUL(Nb_VarC,0:NbCells))
    allocate(me%flxHe%VitTNC_DerdUR(Nb_VarC,0:NbCells))
    allocate(me%big%amx(Nb_VarC,Nb_VarC,NbCells-1))
    allocate(me%big%cmx(Nb_VarC,Nb_VarC,NbCells-1))
    allocate(me%big%bmx(Nb_VarC,Nb_VarC,NbCells))
    allocate(me%big%Jacob(Nb_VarC,Nb_VarC,NbCells))
    allocate(me%srcPP%Su(NbCells))
    allocate(me%srcPP%DerSu(Nb_VarC,NbCells))
    allocate(me%srcPP%Sr(NbCells))
    allocate(me%srcPP%DerSr(Nb_VarC,NbCells))
      
    me%StVar%He_pr=0.0_dp; me%StVar%He_cs=0.0_dp
    me%StVarOld%He_pr=0.0_dp; me%StVarOld%He_cs=0.0_dp
    me%StVarOld2%He_pr=0.0_dp; me%StVarOld2%He_cs=0.0_dp
    me%StVarOld3%He_pr=0.0_dp; me%StVarOld3%He_cs=0.0_dp
    me%StVarOld4%He_pr=0.0_dp; me%StVarOld4%He_cs=0.0_dp
    me%StVarOld5%He_pr=0.0_dp; me%StVarOld5%He_cs=0.0_dp
    me%StVarOld6%He_pr=0.0_dp; me%StVarOld6%He_cs=0.0_dp
    me%flxHe%Cons=0.0_dp;me%flxHe%VitTNC=0.0_dp
    me%flxHe%Cons_DerdUL=0.0_dp;me%flxHe%Cons_DerdUR=0.0_dp
    me%flxHe%VitTNC_DerdUL=0.0_dp;me%flxHe%VitTNC_DerdUR=0.0_dp
    me%big%amx=0.0_dp;me%big%cmx=0.0_dp;me%big%bmx=0.0_dp
    me%big%Jacob=0.0_dp;me%srcPP%Su=0.0_dp;me%srcPP%DerSu=0.0_dp
    me%srcPP%Sr=0.0_dp;me%srcPP%DerSr=0.0_dp
end subroutine all_channel_allocation_nb