Changeset 1669 for LMDZ5/branches/testing/libf/phylmd/thermcell.h

Timestamp:

Oct 16, 2012, 2:41:50 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1668

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcell.h (modified) (2 diffs)

LMDZ5/branches/testing/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
 
+!!! 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/)
+!$OMP THREADPRIVATE(/ctherm6/,/ctherm7/,/ctherm8/)