source: trunk/LMDZ.COMMON/libf/evolution/evolution.F90 @ 3989

Last change on this file since 3989 was 3989, checked in by jbclement, 5 weeks ago

PEM:
Massive structural refactor of the PEM codebase for improved readability, consistency and maintainability. The goal is to modernize, standardize and consolidate the code while removing legacy complexity. In detail, this change:

  • Performs large-scale cleanup removing unused code, obsolete routines, duplicated functionality and deprecated initialization logic;
  • Removes "*_mod" wrappers;
  • Replaces mixed naming conventions with clearer variable names, domain-based file/module names and purpose-based routine names;
  • Adds native reading/writing capabilities to the PEM removing the cumbersome dependency on Mars PCM subroutines;
  • Centralizes soil/ice/orbital/PEM configuration logic into dedicated modules;
  • Simplifies routines and updates calls/interfaces to match the new structure.

This refactor significantly clarifies the codebase and provides a cleaner foundation for forthcoming developments.
JBC

File size: 867 bytes
Line 
1MODULE evolution
2
3implicit none
4
5real    :: year_bp_ini   ! Initial year (in Planetary years) of the simulation of the PEM defined in run.def (in Earth years)
6real    :: dt            ! Time step used by the PEM in Planetary years
7real    :: convert_years ! Conversion ratio from Planetary years to Earth years
8real    :: nyears_max      ! Maximal number of iterations when converging to a steady state, read in evol.def
9logical :: evol_orbit    ! True if we want to follow the orbital parameters of obl_ecc_lsp.asc, read in evol.def
10logical :: var_obl       ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for obliquity
11logical :: var_ecc       ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for eccenticity
12logical :: var_lsp       ! True if we want the PEM to follow obl_ecc_lsp.asc parameters for ls perihelie
13
14END MODULE evolution
Note: See TracBrowser for help on using the repository browser.