source: LMDZ5/trunk/libf/dyn3d/comconst.h @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1!
2! $Id: comconst.h 1907 2013-11-26 13:10:46Z lguez $
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,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 ! 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   ! Specific heat Cp (J.kg-1.K-1)
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      REAL dissip_factz,dissip_deltaz,dissip_zref
32! top_bound sponge:
33      INTEGER iflag_top_bound ! sponge type
34      INTEGER mode_top_bound  ! sponge mode
35      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
36      REAL daylen ! length of solar day, in 'standard' day length
37      REAL year_day ! Number of standard days in a year
38      REAL molmass ! (g/mol) molar mass of the atmosphere
39
40      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
41
42!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.