source: trunk/LMDZ.PLUTO/libf/phypluto/comcstfi_mod.F90 @ 3193

Last change on this file since 3193 was 3184, checked in by afalco, 10 months ago

Pluto PCM:
Added LMDZ.PLUTO, a copy of the generic model,
cleaned from some unnecessary modules (water, ...)
AF

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.