Changeset 3974 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Nov 21, 2025, 4:28:06 PM (8 weeks ago)

Author:

jbclement

Message:

Mars PCM:
Simplification of the orbital parameters initialization (resolve ticket #109): removing redundant actions in subroutine 'iniorbit' in regard of what is done in "tabfi.F" and moving the subroutine 'lsp2solp' from "tabfi.F" to "planete_h.F90" + some cleanings.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -86 +86 @@
 use tracer_mod,                 only: noms, igcm_h2o_ice, igcm_co2, mmol, igcm_h2o_vap ! Tracer names and molar masses
 use mod_phys_lmdz_para,         only: is_parallel, is_sequential, is_mpi_root, is_omp_root, is_master
-use planete_h,                  only: aphelie, periheli, year_day, peri_day, obliquit, iniorbit
 use surfini_mod,                only: surfini
 use comcstfi_h,                 only: mugaz
@@ -597 +596 @@
 !    I_i Compute orbit criterion
 !------------------------
-call iniorbit(aphelie,periheli,year_day,peri_day,obliquit)
-
 n_myear_leg = Max_iter_pem
 if (evol_orbit_pem) call orbit_param_criterion(i_myear,n_myear_leg)