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

Timestamp:

Feb 27, 2025, 3:24:36 PM (4 months ago)

Author:

gmilcareck

Message:

Generic PCM:
Minor changing for the virtual potential temperature correction.
And convadj.F becomes convadj.F90 .
GM

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (1 diff)

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

@@ -55 +55 @@
       logical,save :: generic_condensation
       logical,save :: generic_rain
-      logical,save :: virtual_correction
-!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain,virtual_correction)
+      logical,save :: virtual_theta_correction
+!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain,virtual_theta_correction)
       logical,save :: water ,watercond, waterrain, moistadjustment, moistadjustment_generic, moist_convection_inhibition
 !$OMP THREADPRIVATE(water, watercond, waterrain, moistadjustment, moistadjustment_generic, moist_convection_inhibition)