|
Last change
on this file since 1448 was
1384,
checked in by emillour, 10 years ago
|
|
Generic GCM:
- Some code cleanup: turning comcstfi.h into module comcstfi_mod.F90
EM
|
|
File size:
563 bytes
|
| Rev | Line | |
|---|
| [1384] | 1 | MODULE comcstfi_mod |
|---|
| 2 | IMPLICIT NONE |
|---|
| [600] | 3 | |
|---|
| [1384] | 4 | REAL :: pi ! something like 3.14159 |
|---|
| 5 | REAL :: rad ! radius of the planet (m) |
|---|
| 6 | REAL :: g ! gravity (m/s2) |
|---|
| 7 | REAL :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0)) |
|---|
| 8 | REAL :: cpp ! Cp of the atmosphere |
|---|
| 9 | REAL :: rcp ! r/cpp |
|---|
| 10 | REAL :: dtphys ! physics time step (s) |
|---|
| 11 | REAL :: daysec ! length of day (s) |
|---|
| 12 | REAL :: mugaz ! molar mass of the atmosphere (g/mol) |
|---|
| 13 | REAL :: omeg ! planet rotation rate (rad/s) |
|---|
| 14 | REAL :: avocado ! something like 6.022e23 |
|---|
| [135] | 15 | |
|---|
| [1384] | 16 | END MODULE comcstfi_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
