all_solid_allocation Subroutine

public subroutine all_solid_allocation(me)

Arguments

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

Called by

proc~~all_solid_allocation~~CalledByGraph proc~all_solid_allocation all_solid_allocation proc~solid_init_part1 solid_init_part1 proc~solid_init_part1->proc~all_solid_allocation program~reims_p reims_p program~reims_p->proc~solid_init_part1

Source Code

subroutine all_solid_allocation(me)
    type(solid_t), intent(inout) :: me
    integer :: NbCells
      
    NbCells=me%MC_Prop%NbCells
    allocate(me%StVar%MCtemp(NbCells))
    allocate(me%StVarOld%MCtemp(NbCells))
    allocate(me%StVarOld2%MCtemp(NbCells))
    allocate(me%StVarOld3%MCtemp(NbCells))
    allocate(me%StVarOld4%MCtemp(NbCells))
    allocate(me%StVarOld5%MCtemp(NbCells))
    allocate(me%StVarOld6%MCtemp(NbCells))
    allocate(me%flxS%sd(0:NbCells))
    allocate(me%flxS%sd_DerdTR(0:NbCells))
    allocate(me%flxS%sd_DerdTL(0:NbCells))    
    allocate(me%big%amS(NbCells-1))
    allocate(me%big%cmS(NbCells-1))
    allocate(me%big%bmS(NbCells))
    allocate(me%MC_Prop%idxFSlk(me%MC_Prop%NbCells))
    allocate(me%Q_ext(NbCells))
      
    me%StVar%MCtemp=0.0_dp; me%StVarOld%MCtemp=0.0_dp
    me%StVarOld2%MCtemp=0.0_dp; me%StVarOld3%MCtemp=0.0_dp
    me%StVarOld4%MCtemp=0.0_dp; me%StVarOld5%MCtemp=0.0_dp; me%StVarOld6%MCtemp=0.0_dp
    me%flxS%sd=0.0_dp
    me%flxS%sd_DerdTR=0.0_dp; me%flxS%sd_DerdTL=0.0_dp    
    me%big%amS=0.0_dp;me%big%bmS=0.0_dp;me%big%cmS=0.0_dp
    me%MC_Prop%idxFSlk=0; me%Q_ext=0.0_dp
end subroutine all_solid_allocation