|
Last change
on this file since 3526 was
3526,
checked in by jbclement, 4 days ago
|
|
PEM:
Removing unused or redundant Norbert Schorghofer's subroutines (follow-up of r3493) + cleaning and some modifications of related subroutines.
JBC
|
|
File size:
550 bytes
|
| Line | |
|---|
| 1 | module miscparameters |
|---|
| 2 | ! miscellaneous parameters that are very constant |
|---|
| 3 | real(8), parameter :: pi=3.1415926535897932, d2r=pi/180. |
|---|
| 4 | integer, parameter :: NMAX=1000 |
|---|
| 5 | real(8), parameter :: marsDay=88775.244, solsperyear=668.60 |
|---|
| 6 | real(8), parameter :: icedensity=927. |
|---|
| 7 | real(8), parameter :: earthDay=86400. |
|---|
| 8 | real(8), parameter :: sigSB=5.6704e-8 |
|---|
| 9 | ! for reference here are some parameters that are hard coded |
|---|
| 10 | ! mass of H2O molecule = 18 |
|---|
| 11 | ! universal gas constant = 8314 |
|---|
| 12 | ! length of Earth year in days = 365.24 |
|---|
| 13 | end module miscparameters |
|---|
Note: See
TracBrowser
for help on using the repository browser.
