|
Last change
on this file since 374 was
305,
checked in by rwordsworth, 13 years ago
|
|
Several new files added as part of the climate evolution model
(main program kcm.F90). Some general cleanup in physiq.F90 and
callcorrk.F90. Bugs in dust radiative transfer and H2 Rayleigh
scattering corrected.
|
-
Property svn:executable set to
*
|
|
File size:
398 bytes
|
| Line | |
|---|
| 1 | !----------------------------------------------------------------------- |
|---|
| 2 | ! INCLUDE 'gases.h' |
|---|
| 3 | |
|---|
| 4 | integer, parameter :: ngasmx = 2 |
|---|
| 5 | integer vgas |
|---|
| 6 | character*3 :: gnom(ngasmx) ! name of the gas |
|---|
| 7 | ! character(len=3) :: gnom(ngasmx) ! name of the gas |
|---|
| 8 | real gfrac(ngasmx) |
|---|
| 9 | |
|---|
| 10 | COMMON/gases/gnom,vgas,gfrac |
|---|
| 11 | |
|---|
| 12 | !----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
