|
Last change
on this file since 3470 was
3470,
checked in by evos, 4 weeks ago
|
|
we added the option to use NS dynamical subsurface ice in the model to more realisticly calculate the amount of ice in the subsurface and therfore the subsurface thermal inertia
|
|
File size:
551 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 |
|---|
| 14 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
