Context Navigation

comconst.h @ 5429

Last change on this file since 5429 was 1505, checked in by Ehouarn Millour, 14 years ago
Added possibility to have the base of the atmosphere heated (to mimic a constant uniform heat flux from below), set in .def file (parameter ihf = ... , in W/m2); only active if in "Newtonian mode" (iflag_phys=2) and if planet_type=="giant". EM
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 1.5 KB

Line
1	!
2	! $Id: comconst.h 1505 2011-04-07 14:15:05Z fhourdin $
3	!
4	!-----------------------------------------------------------------------
5	! INCLUDE comconst.h
6
7	COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl, &
8	& iflag_top_bound
9	COMMON/comconstr/dtvr,daysec, &
10	& pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg &
11	& ,dissip_factz,dissip_deltaz,dissip_zref &
12	& ,tau_top_bound, &
13	& daylen,year_day,molmass, ihf
14
15
16	INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
17	REAL dtvr ! dynamical time step (in s)
18	REAL daysec !length (in s) of a standard day
19	REAL pi ! something like 3.14159....
20	REAL dtphys ! (s) time step for the physics
21	REAL dtdiss ! (s) time step for the dissipation
22	REAL rad ! (m) radius of the planet
23	REAL r ! Gas constant R=8.31 J.K-1.mol-1
24	REAL cpp ! Cp
25	REAL kappa ! kappa=R/Cp
26	REAL cotot
27	REAL unsim ! = 1./iim
28	REAL g ! (m/s2) gravity
29	REAL omeg ! (rad/s) rotation rate of the planet
30	REAL dissip_factz,dissip_deltaz,dissip_zref
31	INTEGER iflag_top_bound
32	REAL tau_top_bound
33	REAL daylen ! length of solar day, in 'standard' day length
34	REAL year_day ! Number of standard days in a year
35	REAL molmass ! (g/mol) molar mass of the atmosphere
36
37	REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
38
39	!-----------------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.