source: LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3d/comconst.h @ 3156

Last change on this file since 3156 was 1437, checked in by Ehouarn Millour, 14 years ago

Implementation of FC's improved Newtonian configuration: more realistic (and tunable) friction & fields towards which to relax and planet parameters (gravity, radius, rotation rate...) can be read in from a planet.def file (this occurs only when running in "newtonian mode"; planet parameters are otherwise read in from the start file).

Checked that these implementation don't change results when running standard Earth bench tests on Vargas.

EM
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
RevLine 
[524]1!
[1279]2! $Id: comconst.h 1437 2010-09-30 08:29:10Z fairhead $
[524]3!
[1107]4!-----------------------------------------------------------------------
5! INCLUDE comconst.h
[524]6
[1437]7      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
8     &                 iflag_top_bound
9      COMMON/comconstr/dtvr,daysec,                                     &
[1279]10     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
11     &                   ,dissip_factz,dissip_deltaz,dissip_zref        &
[1437]12     &                   ,tau_top_bound,                                &
13     & daylen,year_day,molmass
[524]14
[1279]15
[524]16      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
[1437]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
[1279]30      REAL dissip_factz,dissip_deltaz,dissip_zref
31      INTEGER iflag_top_bound
32      REAL tau_top_bound
[1437]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
[524]36
[1279]37
[1107]38!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.