Changeset 1496 for LMDZ5/trunk/libf/phylmd/conf_phys.F90

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/conf_phys.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys.F90

@@ -21 +21 @@
                        flag_aerosol, new_aod, &
                        bl95_b0, bl95_b1,&
-                       iflag_thermals,nsplit_thermals,tau_thermals, &
-                       iflag_thermals_ed,iflag_thermals_optflux, &
-                       iflag_coupl,iflag_clos,iflag_wake, read_climoz, &
+                       read_climoz, &
                        alp_offset)
 
@@ -37 +35 @@
  include "YOMCST.h"
  include "YOMCST2.h"
+
+ include "thermcell.h"
+
 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
 include "clesphys.h"
@@ -106 +107 @@
   real,save :: seuil_inversion_omp
 
-  integer :: iflag_thermals,nsplit_thermals
   integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp
-  integer :: iflag_thermals_ed,iflag_thermals_optflux
   integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
-  real :: tau_thermals
-  real,save :: tau_thermals_omp
-  integer :: iflag_coupl
-  integer :: iflag_clos
-  integer :: iflag_wake
+  real,save :: tau_thermals_omp,alp_bl_k_omp
   real :: alp_offset
   REAL, SAVE :: alp_offset_omp
@@ -1002 +997 @@
   call getin('nsplit_thermals',nsplit_thermals_omp)
 
+!Config Key  = alp_bl_k
+!Config Desc =
+!Config Def  = 0.
+!Config Help =
+!
+  alp_bl_k_omp = 1.
+  call getin('alp_bl_k',alp_bl_k_omp)
+
+!
 !Config Key  = tau_thermals
 !Config Desc =
@@ -1554 +1558 @@
     nsplit_thermals = nsplit_thermals_omp
     tau_thermals = tau_thermals_omp
+    alp_bl_k = alp_bl_k_omp
     iflag_coupl = iflag_coupl_omp
     iflag_clos = iflag_clos_omp