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

Timestamp:

Mar 11, 2011, 10:44:05 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Modified closure for the new physics package, new values for the iflag_coupl parameter
FH

---

Fermeture modifiée pour la nouvelle physique, nouvelles valeurs définies pour
le paramètre iflag_coupl
FH

File:

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

LMDZ5/trunk/libf/phylmd/thermcell.h

@@ -1 +1 @@
       integer            :: iflag_thermals,nsplit_thermals
       real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
+      real               :: alp_bl_k
       real               :: tau_thermals
       integer,parameter  :: w2di_thermals=1
@@ -9 +10 @@
 
       common/ctherm1/iflag_thermals,nsplit_thermals
-      common/ctherm2/tau_thermals
+      common/ctherm2/tau_thermals,alp_bl_k
       common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
       common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux