forked from pencil-code/pencil-code
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathenergy.h
28 lines (26 loc) · 1.05 KB
/
energy.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
! -*-f90-*- (for emacs) vim:set filetype=fortran: (for vim)
private
real :: w_sldchar_ene=0.1
public :: register_energy, initialize_energy
public :: read_energy_init_pars, write_energy_init_pars
public :: read_energy_run_pars, write_energy_run_pars
public :: rprint_energy, get_slices_energy
public :: init_energy, denergy_dt, energy_after_boundary
public :: pencil_criteria_energy, pencil_interdep_energy
public :: calc_pencils_energy, fill_farray_pressure
public :: impose_energy_floor, energy_before_boundary
public :: dynamical_thermal_diffusion
public :: split_update_energy
public :: expand_shands_energy
public :: update_char_vel_energy
public :: energy_after_timestep
public :: pushpars2c
public :: calc_diagnostics_energy
!public :: bc_ss_flux
public :: heatcond_TT
!
interface heatcond_TT
module procedure heatcond_TT_0d ! get one value (hcond, dhcond)
module procedure heatcond_TT_1d ! get 1d-arrays (hcond, dhcond)
module procedure heatcond_TT_2d ! get 2d-arrays (hcond, dhcond)
end interface