Changeset 4078 for trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90

Timestamp:

Feb 18, 2026, 8:45:27 PM (2 weeks ago)

Author:

tbertrand

Message:

Pluto PCM:
Allowing atmospheric temperatures to be fixed following an input profile (fixed_temp_prof option)
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90

@@ -62 +62 @@
       logical,save :: kbo
 !$OMP THREADPRIVATE(kbo)
-      logical,save :: cooling
-!$OMP THREADPRIVATE(cooling)
+      logical,save :: cooling,fixed_temp_prof
+!$OMP THREADPRIVATE(cooling,fixed_temp_prof)
       logical,save :: source_haze,hazeconservch4,haze_ch4proffix
 !$OMP THREADPRIVATE(source_haze,hazeconservch4,haze_ch4proffix)
@@ -112 +112 @@
       real,save    :: tau_prechaze
 !$OMP THREADPRIVATE(tau_prechaze)
+      real,save    :: tau_temp
+!$OMP THREADPRIVATE(tau_temp)
       real,save    :: paleoyears
 !$OMP THREADPRIVATE(paleoyears)