source: trunk/LMDZ.GENERIC/libf/phystd/comcstfi_mod.F90 @ 1579

Last change on this file since 1579 was 1524, checked in by emillour, 9 years ago

All GCMS:
More updates to enforce dynamics/physics separation:

get rid of references to "temps_mod" from physics packages;
make a "time_phylmdz_mod.F90" module to store that
information and fill it via "iniphysiq".

EM

File size: 581 bytes
Line 
1MODULE comcstfi_mod
2IMPLICIT NONE
3     
4      REAL,SAVE :: pi ! something like 3.14159
5      REAL,SAVE :: rad ! radius of the planet (m)
6      REAL,SAVE :: g ! gravity (m/s2)
7      REAL,SAVE :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0))
8      REAL,SAVE :: cpp ! Cp of the atmosphere
9      REAL,SAVE :: rcp ! r/cpp
10      REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol)
11      REAL,SAVE :: omeg ! planet rotation rate (rad/s)
12      REAL,SAVE :: avocado ! something like 6.022e23
13!$OMP THREADPRIVATE(pi,rad,g,r,cpp,rcp,mugaz,omeg,avocado)
14
15END MODULE comcstfi_mod
Note: See TracBrowser for help on using the repository browser.