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

Timestamp:

Jul 24, 2023, 9:31:31 AM (19 months ago)

Author:

emillour

Message:

Mars PCM:
Code cleanup concerning chemistry. Turn chimiedata.h into module
chemistrydata.F90 and integrate read_phototable.F in it.
Also fix an OpenMP issue with read_phototable; different OpenMP threads
should not simultaneously open/read a file. Let the master do the job
and then broadcast the result to all cores.
While at it, also turned nltecool.F and nlte_tcool.F into modules.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (1 diff)

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

@@ -24 +24 @@
       use calcstormfract_mod, only: calcstormfract
       use topmons_mod, only: topmons,topmons_setup
+      use nltecool_mod, only: nltecool
+      use nlte_tcool_mod, only: nlte_tcool
       use tracer_mod, only: noms, mmol, igcm_co2, igcm_n2, igcm_co2_ice,
      &                      igcm_co, igcm_o, igcm_h2o_vap, igcm_h2o_ice,