|
Last change
on this file since 3116 was
3076,
checked in by jbclement, 21 months ago
|
|
PEM:
Big cleaning/improvements of the PEM:
- Conversion of "abort_pem.F" and "soil_settings_PEM.F" into Fortran 90;
- Transformation of every PEM subroutines into module;
- Rewriting of many subroutines with modern Fortran syntax;
- Correction of a bug in "pem.F90" when calling 'recomp_tend_co2_slope'. The arguments were given in disorder and emissivity was missing;
- Update of "launch_pem.sh" in deftank.
JBC
|
|
File size:
1.2 KB
|
| Rev | Line | |
|---|
| [3039] | 1 | MODULE time_evol_mod |
|---|
| [2779] | 2 | |
|---|
| [3076] | 3 | implicit none |
|---|
| [2779] | 4 | |
|---|
| [3076] | 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 |
|---|
| [2779] | 16 | |
|---|
| [3039] | 17 | END MODULE time_evol_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
