Changeset 2954 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

May 2, 2023, 4:58:20 PM (19 months ago)

Author:

emillour

Message:

Generic PCM:
Improve diagnostics given by callcorrk (get min/max over whole globe, not
just over the master domain).
While at it also moved "Nmix_co2" and "radfixed" from callkeys_mod to radii_mod
since they are only used in that module.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -37 +37 @@
       logical,save :: varactive
       logical,save :: varfixed
-      logical,save :: radfixed
       logical,save :: sedimentation
       logical,save :: generic_condensation
       logical,save :: generic_rain
-!$OMP THREADPRIVATE(varactive,varfixed,radfixed,sedimentation,generic_condensation,generic_rain)
+!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain)
       logical,save :: water ,watercond, waterrain, moistadjustment
 !$OMP THREADPRIVATE(water, watercond, waterrain, moistadjustment)
@@ -104 +103 @@
 !$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
       real,save :: topdustref
-      real,save :: Nmix_co2
       real,save :: dusttau
       real,save :: Fat1AU
       real,save :: stelTbb
-!$OMP THREADPRIVATE(topdustref,Nmix_co2,dusttau,Fat1AU,stelTbb)
+!$OMP THREADPRIVATE(topdustref,dusttau,Fat1AU,stelTbb)
       real,save :: Tstrat
       real,save :: tplanet