Changeset 879 for LMDZ4/trunk/libf/phylmd/conema3.h

Timestamp:

Jan 17, 2008, 10:20:32 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Suite de la bascule vers une physique avec thermiques, nouvelle convection, poche froide ...
LF

File:

• LMDZ4/trunk/libf/phylmd/conema3.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/conema3.h

@@ -1 +1 @@
 !
 ! $Header$
+!-- Modified by : Filiberti M-A 06/2005
 !
       real epmax             ! 0.993
       logical ok_adj_ema      ! F
       integer iflag_clw      ! 0
+          integer iflag_cvl_sigd
+      real sig1feed      ! 1.
+      real sig2feed      ! 0.95
 
-      common/comconema/epmax,ok_adj_ema,iflag_clw
-!$OMP THREADPRIVATE(/comconema/)
+      common/comconema1/epmax,ok_adj_ema,iflag_clw,sig1feed,sig2feed
+      common/comconema2/iflag_cvl_sigd
+
+!      common/comconema/epmax,ok_adj_ema,iflag_clw
+!$OMP THREADPRIVATE(/comconema1/)
+!$OMP THREADPRIVATE(/comconema2/)