Changeset 1638 for LMDZ5/trunk/libf/phylmd/thermcell.h

Timestamp:

Jul 23, 2012, 1:11:05 PM (12 years ago)

Author:

idelkadi

Message:

Introduction du declenchement stochastique de la convection

File:

• LMDZ5/trunk/libf/phylmd/thermcell.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/thermcell.h

@@ -1 +1 @@
       integer            :: iflag_thermals,nsplit_thermals
+
+!!! nrlmd le 10/04/2012
+      integer            :: iflag_trig_bl,iflag_clos_bl
+      integer            :: tau_trig_shallow,tau_trig_deep
+      real               :: s_trig
+!!! fin nrlmd le 10/04/2012
+
       real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
       real               :: alp_bl_k
       real               :: tau_thermals
-      integer,parameter  :: w2di_thermals=1
+      integer,parameter  :: w2di_thermals=0
       integer            :: isplit
 
@@ -14 +21 @@
       common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
 
-!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
+!!! nrlmd le 10/04/2012
+      common/ctherm6/iflag_trig_bl,iflag_clos_bl
+      common/ctherm7/tau_trig_shallow,tau_trig_deep
+      common/ctherm8/s_trig
+!!! fin nrlmd le 10/04/2012
+
+!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/,/ctherm6/,/ctherm7/,,/ctherm6/,/ctherm8/)