Changeset 3618

Timestamp:

Feb 11, 2025, 2:44:50 PM (6 months ago)

Author:

jbclement

Message:

PEM:
Correction for a problem concerning an imported variable whether in 1D or 3D.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• pem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -588 +588 @@
 - Improvement of the loops to update surface temperature in case of CO2 ice is disappearing.
 - Improvement of messages printed on the terminal.
+
+== 11/02/2025 == JBC
+Correction for a problem concerning an imported variable whether in 1D or 3D.

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

@@ -84 +84 @@
     use mod_phys_lmdz_para, only: is_parallel, is_sequential, is_mpi_root, is_omp_root, is_master
     use planete_h,          only: aphelie, periheli, year_day, peri_day, obliquit, iniorbit
-    use comcstfi_h,         only: mugaz, r
     use surfini_mod,        only: surfini
     use comconst_mod,       only: pi, rad, g, cpp, kappa
+    use comcstfi_h,         only: mugaz
 #else
     use tracer_h,           only: noms, igcm_h2o_ice, igcm_co2 ! Tracer names
@@ -98 +98 @@
 
 #ifndef CPP_1D
+    use comconst_mod,             only: r
     use iniphysiq_mod,            only: iniphysiq
     use control_mod,              only: iphysiq, day_step, nsplit_phys
 #else
+    use comcstfi_h,               only: r
     use time_phylmdz_mod,         only: iphysiq, steps_per_sol
     use regular_lonlat_mod,       only: init_regular_lonlat