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

Timestamp:

Jan 28, 2026, 3:06:52 PM (4 weeks ago)

Author:

mmaurice

Message:

Generic PCM

Introduce molecular viscosity module. Add callconduc and callmolvis
flags to call conduction and molecular viscosity, respectively. Change
phitop in conduction to phitop_conduc (there is also phitop_molvis now).
Move thermal conductivity lambda to conc_mod.F90.

MM

File:

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

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

@@ -22 +22 @@
 !$OMP THREADPRIVATE(strictboundrayleigh)
       logical,save :: callthermos
+      logical,save :: callconduc
+      logical,save :: callmolvis
       logical,save :: force_conduction
-      real,save    :: phitop
+      real,save    :: phitop_conduc
+      real,save    :: phitop_molvis
       real,save    :: zztop
       real,save    :: a_coeff
       real,save    :: s_coeff
-!$OMP THREADPRIVATE(callthermos,phitop,zztop,force_conduction,a_coeff,s_coeff)
+!$OMP THREADPRIVATE(callthermos,callconduc,callmolvis,phitop_conduc,phitop_molvis,zztop,force_conduction,a_coeff,s_coeff)
 
       logical,save :: enertest