Changeset 3974 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Nov 21, 2025, 4:28:06 PM (5 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.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -85 +85 @@
       use turb_mod, only: q2, wstar, ustar, sensibFlux,
      &                    zmax_th, hfmax_th, turb_resolved
-      use planete_h, only: aphelie, periheli, year_day, peri_day,
-     &                     obliquit
-      use planete_h, only: iniorbit
+      use planete_h, only: obliquit
       use orbite_mod, only: orbite
       USE comcstfi_h, only: r, cpp, mugaz, g, rcp, pi, rad
@@ -718 +716 @@
 c        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
          CALL surfini(ngrid,nslope,qsurf)
-         CALL iniorbit(aphelie,periheli,year_day,peri_day,obliquit)
+
 c        initialize soil
 c        ~~~~~~~~~~~~~~~