Changeset 1142 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h

Timestamp:

Apr 7, 2009, 5:53:39 PM (15 years ago)

Author:

yann meurdesoif

Message:

Portage vers Vargas

Y.M + E.M

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h

@@ -1 @@
-      integer iflag_thermals,nsplit_thermals
-      real r_aspect_thermals,l_mix_thermals,tau_thermals
-      integer w2di_thermals,isplit
-      integer iflag_coupl,iflag_clos,iflag_wake
-      integer iflag_thermals_ed,iflag_thermals_optflux
+      integer            :: iflag_thermals,nsplit_thermals
+      real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
+      real               :: tau_thermals
+      integer,parameter  :: w2di_thermals=1
+      integer            :: isplit
+
+      integer            :: iflag_coupl,iflag_clos,iflag_wake
+      integer            :: iflag_thermals_ed,iflag_thermals_optflux
 
       common/ctherm1/iflag_thermals,nsplit_thermals
-      common/ctherm2/r_aspect_thermals,l_mix_thermals,tau_thermals
-      common/ctherm3/w2di_thermals
+      common/ctherm2/tau_thermals
       common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
       common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
 
-!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm3/,/ctherm4/)
+!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)