|
Last change
on this file since 3884 was
3875,
checked in by emillour, 4 months ago
|
|
Venus PCM:
Code tidying: get rid of common in tabcontrol.h; turn it into a module.
EM
|
|
File size:
577 bytes
|
| Line | |
|---|
| 1 | MODULE tabcontrol_mod |
|---|
| 2 | |
|---|
| 3 | ! stores some formation about run parameters |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | INTEGER,SAVE :: radpas ! rate of computation of radiative transfert, in physics steps |
|---|
| 8 | !$OMP THREADPRIVATE(radpas) |
|---|
| 9 | |
|---|
| 10 | INTEGER,SAVE :: chimpas ! rate of computation of chemistry, in physics steps |
|---|
| 11 | !$OMP THREADPRIVATE(chimpas) |
|---|
| 12 | |
|---|
| 13 | REAL,SAVE :: dtime ! time step of the physics (s) |
|---|
| 14 | !$OMP THREADPRIVATE(dtime) |
|---|
| 15 | |
|---|
| 16 | ! the "controle" array, used to store information in the restartphy file |
|---|
| 17 | INTEGER,PARAMETER :: length=100 |
|---|
| 18 | REAL,SAVE :: tabcntr0(length) |
|---|
| 19 | !$OMP THREADPRIVATE(tabcntr0) |
|---|
| 20 | |
|---|
| 21 | END MODULE tabcontrol_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
