source: trunk/LMDZ.COMMON/libf/dyn3d_common/comconst.h @ 1300

Last change on this file since 1300 was 1300, checked in by emillour, 10 years ago

Common dynamics:
Some updates to keep up with LMDZ5 Earth model evolution (up to LMDZ5 rev 1955).
Main change is the introduction of a "dyn3d_common" directory
to store files common to dyn3d and dyn3dpar.
See file "DOC/chantiers/commit_importants.log" for detailed list
of changes. These changes do not change results on test cases.
EM
File size: 1.9 KB
Line 
1!
2! $Id: comconst.h 1437 2010-09-30 08:29:10Z emillour $
3!
4!-----------------------------------------------------------------------
5! INCLUDE comconst.h
6
7      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
8     &                 iflag_top_bound,mode_top_bound
9      COMMON/comconstr/dtvr,daysec,                                     &
10     & pi,dtphys,dtdiss,rad,r,kappa,cotot,unsim,g,omeg                  &
11     & ,dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta        &
12     & ,dissip_pupstart  ,tau_top_bound,                                &
13     & daylen,molmass, ihf
14      COMMON/cpdetvenus/cpp,nu_venus,t0_venus
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 ! Reduced Gas constant r=R/mu
24             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
25      REAL cpp   ! Cp
26      REAL kappa ! kappa=R/Cp
27      REAL cotot
28      REAL unsim ! = 1./iim
29      REAL g ! (m/s2) gravity
30      REAL omeg ! (rad/s) rotation rate of the planet
31! Dissipation factors, for Earth model:
32      REAL dissip_factz,dissip_zref !dissip_deltaz
33! Dissipation factors, for other planets:
34      REAL dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta
35      REAL dissip_pupstart
36      INTEGER iflag_top_bound,mode_top_bound
37      REAL tau_top_bound
38      REAL daylen ! length of solar day, in 'standard' day length
39      REAL molmass ! (g/mol) molar mass of the atmosphere
40
41      REAL nu_venus,t0_venus ! coeffs needed for Cp(T), Venus atmosphere
42      REAL ihf  ! (W/m2) intrinsic heat flux for giant planets
43
44
45!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.