Changeset 3082 for trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90

Timestamp:

Oct 11, 2023, 1:40:58 PM (14 months ago)

Author:

jbclement

Message:

PEM:

• Correction of a bug in the initialization of constants. The correct modules are now used: 'comcstfi_h' (and no longer 'comconst_mod'!) in the general case and 'comcstfi_mod' in the case of generic model;
• Addition of the variable 'ecritpem' in "run_PEM.def" to set the frequency of outputs in the "diagfi.nc". By default, 'ecritpem = 1' which means there is one output at each PEM year.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90 (modified) (1 diff)

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

@@ -24 +24 @@
 #endif
 #ifndef CPP_STD
-    use planete_h,   only: e_elips, obliquit, lsperi
+    use planete_h,    only: e_elips, obliquit, lsperi
+    use comcstfi_h,   only: pi
 #else
-    use planete_mod, only: e_elips, obliquit, lsperi
+    use planete_mod,  only: e_elips, obliquit, lsperi
+    use comcstfi_mod, only: pi
 #endif
 use time_evol_mod,  only: year_bp_ini, var_obl, var_ecc, var_lsp, convert_years
-use comconst_mod,   only: pi
 use lask_param_mod, only: yearlask, obllask, ecclask, lsplask, ini_lask_param_mod, last_ilask