Changeset 3961 for trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90

Timestamp:

Nov 14, 2025, 5:26:48 PM (4 weeks ago)

Author:

jbclement

Message:

PEM:
Clearing all the tags and code related to the Generic PCM.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90 (modified) (3 diffs)

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

@@ -15 +15 @@
 SUBROUTINE recomp_orb_param(i_myear,i_myear_leg)
 
-use time_evol_mod,  only: year_bp_ini, var_obl, var_ecc, var_lsp
-use lask_param_mod, only: yearlask, obllask, ecclask, lsplask, end_lask_param_mod, last_ilask
-#ifndef CPP_STD
-    use comcstfi_h,       only: pi
-    use planete_h,        only: e_elips, obliquit, lsperi, periheli, aphelie, p_elips, peri_day, year_day
-    use call_dayperi_mod, only: call_dayperi
-#else
-    use comcstfi_mod,     only: pi
-    use planete_mod,      only: e_elips, obliquit, lsperi, periastr, apoastr, p_elips, peri_day, year_day
-#endif
+use time_evol_mod,    only: year_bp_ini, var_obl, var_ecc, var_lsp
+use lask_param_mod,   only: yearlask, obllask, ecclask, lsplask, end_lask_param_mod, last_ilask
+use comcstfi_h,       only: pi
+use planete_h,        only: e_elips, obliquit, lsperi, periheli, aphelie, p_elips, peri_day, year_day
+use call_dayperi_mod, only: call_dayperi
 
 implicit none
@@ -52 +47 @@
 ! 0. Initializations
 ! **********************************************************************
-#ifdef CPP_STD
-    real :: aphelie, periheli
-
-    aphelie = apoastr
-    periheli = periastr
-#endif
-
 Year = year_bp_ini + i_myear ! We compute the current year
 Lsp = lsperi*180./pi         ! We convert in degree
@@ -125 +113 @@
 p_elips = 0.5*(periheli + aphelie)*(1. - e_elips*e_elips)/unitastr
 
-#ifndef CPP_STD
-    call call_dayperi(Lsp,e_elips,peri_day,year_day)
-#endif
+call call_dayperi(Lsp,e_elips,peri_day,year_day)
 
 END SUBROUTINE recomp_orb_param