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

Timestamp:

Jan 9, 2019, 3:25:30 PM (6 years ago)

Author:

aboissinot

Message:

Add the thermal plume model (cf. Rio et al. 2010) extended to gas giant.
Specific parameters are set in thermcell_mod.

File:

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

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

@@ -4 +4 @@
       logical,save :: callrad,corrk,calldifv,UseTurbDiff
 !$OMP THREADPRIVATE(callrad,corrk,calldifv,UseTurbDiff)
-      logical,save :: calladj,co2cond,callsoil
-!$OMP THREADPRIVATE(calladj,co2cond,callsoil)
+      logical,save :: calladj,calltherm,co2cond,callsoil
+!$OMP THREADPRIVATE(calladj,calltherm,co2cond,callsoil)
       logical,save :: season,diurnal,tlocked,rings_shadow,lwrite
 !$OMP THREADPRIVATE(season,diurnal,tlocked,rings_shadow,lwrite)