|
Last change
on this file since 3728 was
3663,
checked in by gmilcareck, 4 months ago
|
|
Generic PCM:
Cleaning up the code. The gas constant and Avogadro number values
was not the same between the files in the model.
We choose the value recommended by the 2019 revision of the SI.
R=8.314463 J.K-1.mol-1 and NA=6.022141e23 mol-1.
GM
|
-
Property svn:executable set to
*
|
|
File size:
306 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,cp_n,m_n,m_v,rmn |
|---|
| 9 | save cp_n,m_n,m_v,rmn |
|---|
| 10 | |
|---|
| 11 | logical ideal_v |
|---|
| 12 | save ideal_v |
|---|
| 13 | |
|---|
| 14 | parameter (rc = 8.314463d0) ! ideal gas constant [J mol^-1 K^-1] |
|---|
| 15 | |
|---|
| 16 | end module params_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
