|
Last change
on this file since 3071 was
3039,
checked in by jbclement, 2 years ago
|
|
Mars PEM:
Big cleaning of main program pem.F90 (indentation, declarations, comments, simplification of conditions/loops, etc).
JBC
|
|
File size:
1.3 KB
|
| Line | |
|---|
| 1 | MODULE time_evol_mod |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | integer :: year_bp_ini ! Initial year (in Planetary years) of the simulation of the PEM defined in run.def (in Earth years) |
|---|
| 6 | integer :: dt_pem ! Time step used by the PEM in Planetary years |
|---|
| 7 | real :: convert_years ! Conversion ratio from Planetary years to Earth years |
|---|
| 8 | real :: water_ice_criterion ! Percentage of change of the surface of water ice sublimating before stopping the PEM |
|---|
| 9 | real :: co2_ice_criterion ! Percentage of change of the surface of co2 ice sublimating before stopping the PEM |
|---|
| 10 | real :: ps_criterion ! Percentage of change of averaged surface pressure before stopping the PEM |
|---|
| 11 | integer :: Max_iter_pem ! Maximal number of iteration when converging to a steady state, read in evol.def |
|---|
| 12 | logical :: evol_orbit_pem ! True if we want to follow the orbital parameters of obl_ecc_lsp.asc, read in evol.def |
|---|
| 13 | logical :: var_obl ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for obliquity |
|---|
| 14 | logical :: var_ecc ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for excenticity |
|---|
| 15 | logical :: var_lsp ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for ls perihelie |
|---|
| 16 | |
|---|
| 17 | END MODULE time_evol_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
