Changeset 3466 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 21, 2024, 5:42:40 PM (11 months ago)

Author:

emillour

Message:

Mars PCM:
More tidying in aeronomars:

• remove unused "inv.F" and remove "dtridgl.F" which is not used here and is a duplicate of the "dtridgl" routine in phymars/swr_toon.F
• turn aeronomars routines to modules, for those which aren't in modules yet.

EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

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

@@ -29 +29 @@
       use nlthermeq_mod, only: nlthermeq
       use thermosphere_mod, only: thermosphere
+      use param_read_e107_mod, only: param_read_e107
       use tracer_mod, only: noms, mmol, igcm_co2, igcm_n2, igcm_co2_ice,
      &                      igcm_co, igcm_o, igcm_h2o_vap, igcm_h2o_ice,
@@ -62 +63 @@
       use nirdata_mod, only: NIR_leedat
       use nirco2abs_mod, only: nirco2abs
+      use surfacearea_mod, only: surfacearea
       use slope_mod, only: theta_sl, psi_sl, getslopes, param_slope
       use conc_mod, only: init_r_cp_mu, update_r_cp_mu_ak, rnew,