|
Last change
on this file since 3525 was
3493,
checked in by jbclement, 3 weeks ago
|
|
PEM:
- Renaming of Norbert Schorghofer's subroutines with the prefix 'NS_';
- Making the extension of all NS's subroutines as '.F90';
- Deletion of the wrapper subroutine;
- Making the initialization, variables management and arguments of the main subroutine for the dynamic computation of ice table to be more suitable.
JBC
|
|
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.
