init_dcll_module Subroutine

public subroutine init_dcll_module()

Initialise module variables !!!

Arguments

None

Contents

Source Code


Source Code

    subroutine init_dcll_module

        !! Initialise module variables !!!

        implicit none

        r_fci = 0.0
        r_backwall = 0.0
        bz_r_ib = 0.0
        bz_r_ob = 0.0
        f_vol_stff_plates = 0.0
        f_vol_stl_bz_struct = 0.0
        f_vol_stl_back_wall = 0.0
        f_vol_stl_fw = 0.0
        f_vol_mfbss_stl = 0.0
        f_vol_mfbss_he = 0.0
        f_vol_mfbss_pbli = 0.0
        vol_fci = 0.0
        vol_bz_struct = 0.0
        vol_bz_liq = 0.0
        vol_bz_liq_ib = 0.0
        vol_bz_liq_ob = 0.0
        vol_bw = 0.0
        vol_bss = 0.0
        wht_cer = 0.0
        wht_stl_struct = 0.0
        wht_cool_struct = 0.0
        wht_bw_stl = 0.0
        wht_bw_cool = 0.0
        wht_mfbss_stl = 0.0
        wht_mfbss_cool = 0.0
        wht_mfbss_pbli = 0.0
        fwmass_stl = 0.0
        fwmass_cool = 0.0
        mass_cool_blanket = 0.0
        mass_liq_blanket = 0.0
        mass_stl_blanket = 0.0
        mass_segm_ib = 0.0
        mass_segm_ob = 0.0

    end subroutine init_dcll_module