rc_fluid Derived Type

type, public :: rc_fluid


Components

Type Visibility Attributes Name Initial
double precision, public, allocatable :: Lcool(:)
integer, public :: Tcoff_

Index of cut off temperature for TRAC
logical, public :: Tfix

Fixed temperature not lower than tlow
double precision, public, allocatable :: Yc(:)
double precision, public :: cfrac

Coefficent of cooling time step
character(len=std_len), public :: coolcurve

Name of cooling curve
character(len=std_len), public :: coolmethod

Name of cooling method
double precision, public :: lgstep
double precision, public :: lgtcoolmax
double precision, public :: lgtcoolmin
double precision, public :: lref
integer, public :: n_PPL
integer, public :: ncool

Resolution of temperature in interpolated tables
logical, public :: rad_cut

cutoff radiative cooling below rad_cut_hgt
double precision, public :: rad_cut_dey
double precision, public :: rad_cut_hgt
double precision, public, allocatable :: tcool(:)
double precision, public :: tcoolmax
double precision, public :: tcoolmin
double precision, public :: tlow

Lower limit of temperature
double precision, public :: tref

Source Code

  type rc_fluid

    double precision :: rad_cut_hgt
    double precision :: rad_cut_dey

    ! these are set in init method
    double precision, allocatable :: tcool(:), Lcool(:)
    double precision, allocatable :: Yc(:)
    double precision  :: tref, lref, tcoolmin,tcoolmax
    double precision  :: lgtcoolmin, lgtcoolmax, lgstep

    !> Lower limit of temperature
    double precision   :: tlow

    !> Coefficent of cooling time step
    double precision   :: cfrac

    !> Index of cut off temperature for TRAC
    integer              :: Tcoff_

    ! these are set as parameters
    !> Resolution of temperature in interpolated tables
    integer :: ncool

    integer :: n_PPL

    !> Fixed temperature not lower than tlow
    logical   :: Tfix

    !> cutoff radiative cooling below rad_cut_hgt
    logical :: rad_cut

    !> Name of cooling curve
    character(len=std_len)  :: coolcurve

    !> Name of cooling method
    character(len=std_len)  :: coolmethod

  end type rc_fluid