|
Last change
on this file since 537 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:
296 bytes
|
| Line | |
|---|
| 1 | module params_h |
|---|
| 2 | |
|---|
| 3 | ! for use with kcm subroutines |
|---|
| 4 | ! RDW 22/09/11 |
|---|
| 5 | |
|---|
| 6 | implicit none |
|---|
| 7 | |
|---|
| 8 | double precision rc,m_n,m_v,rmn |
|---|
| 9 | save m_n,m_v,rmn |
|---|
| 10 | |
|---|
| 11 | logical ideal_v |
|---|
| 12 | save ideal_v |
|---|
| 13 | |
|---|
| 14 | parameter (rc = 8.314462d0) ! ideal gas constant [J mol^-1 K^-1] |
|---|
| 15 | |
|---|
| 16 | end module params_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
