|
Last change
on this file since 3366 was
3214,
checked in by jbclement, 10 months ago
|
|
PEM:
- It is now possible to set the number of initial PCM calls independently of the number of "inter-PEM" PCM calls. It is useful to get a stable situation for the start of the simulation.
- Correction of a bug: 'reshape_XIOS_output' treated the first two PCM runs instead of the last two. The numbering has been adapted in "launch_pem.sh" to get it right.
- PEM outputs ("diagpem.nc" and "diagsoil_pem.nc") has been improved: 'Time' now evolves according to 'dt_pem' (usually year by year) and 'ecritpem' is a full variable of "time_evol_mod.F90".
JBC
|
|
File size:
1.2 KB
|
| Rev | Line | |
|---|
| [3039] | 1 | MODULE time_evol_mod |
|---|
| [2779] | 2 | |
|---|
| [3076] | 3 | implicit none |
|---|
| [2779] | 4 | |
|---|
| [3159] | 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 :: h2o_ice_crit ! Percentage of change of the surface of h2o ice sublimating before stopping the PEM |
|---|
| 9 | real :: co2_ice_crit ! 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 eccenticity |
|---|
| 15 | logical :: var_lsp ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for ls perihelie |
|---|
| [3214] | 16 | integer :: ecritpem ! For "diagpem.nc" outputs, writen every ecritpem |
|---|
| [2779] | 17 | |
|---|
| [3039] | 18 | END MODULE time_evol_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
