source: LMDZ5/trunk/libf/dyn3d_common/comconst_mod.F90 @ 3373

Last change on this file since 3373 was 2597, checked in by Ehouarn Millour, 8 years ago

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

  • 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.3 KB
RevLine 
[524]1!
[1279]2! $Id: comconst_mod.F90 2597 2016-07-22 06:44:47Z idelkadi $
[524]3!
4
[2597]5MODULE comconst_mod
[524]6
[2597]7IMPLICIT NONE 
[1279]8
[524]9      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
[1454]10      REAL dtvr ! dynamical time step (in s)
11      REAL daysec !length (in s) of a standard day
12      REAL pi    ! something like 3.14159....
13      REAL dtphys ! (s) time step for the physics
14      REAL dtdiss ! (s) time step for the dissipation
15      REAL rad ! (m) radius of the planet
[1671]16      REAL r ! Reduced Gas constant r=R/mu
17             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
18      REAL cpp   ! Specific heat Cp (J.kg-1.K-1)
[1454]19      REAL kappa ! kappa=R/Cp
20      REAL cotot
21      REAL unsim ! = 1./iim
22      REAL g ! (m/s2) gravity
23      REAL omeg ! (rad/s) rotation rate of the planet
[1279]24      REAL dissip_factz,dissip_deltaz,dissip_zref
[1793]25! top_bound sponge:
26      INTEGER iflag_top_bound ! sponge type
[2597]27      INTEGER ngroup ! parameter to group points (along longitude) near poles
[1793]28      INTEGER mode_top_bound  ! sponge mode
29      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
[1454]30      REAL daylen ! length of solar day, in 'standard' day length
31      REAL year_day ! Number of standard days in a year
32      REAL molmass ! (g/mol) molar mass of the atmosphere
[524]33
[1505]34      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
[1279]35
[2597]36
37END MODULE comconst_mod
Note: See TracBrowser for help on using the repository browser.