Changeset 2000 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Mar 26, 2014, 7:05:47 PM (10 years ago)

Author:

fhourdin

Message:

Introduction d'un parametre pour controler l'altitude a laquelle on va chercher l'air
pour l'entrainement pour obtenir des stratocumulus
dz = fact_thermals_ed_dz * z (these Arnaud Jam)

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -115 +115 @@
 
     integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp,iflag_thermals_closure_omp
+    real, SAVE :: fact_thermals_ed_dz_omp
     integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
     real,save :: tau_thermals_omp,alp_bl_k_omp
@@ -1141 +1142 @@
     iflag_thermals_omp = 0
     call getin('iflag_thermals',iflag_thermals_omp)
+    !
+    !Config Key  = iflag_thermals_ed
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    fact_thermals_ed_dz_omp = 0.1
+
+    call getin('fact_thermals_ed_dz',fact_thermals_ed_dz_omp)
     !
     !
@@ -1823 +1833 @@
     iflag_thermals = iflag_thermals_omp
     iflag_thermals_ed = iflag_thermals_ed_omp
+    fact_thermals_ed_dz = fact_thermals_ed_dz_omp
     iflag_thermals_optflux = iflag_thermals_optflux_omp
     iflag_thermals_closure = iflag_thermals_closure_omp
@@ -2015 +2026 @@
     write(lunout,*)' iflag_thermals = ', iflag_thermals
     write(lunout,*)' iflag_thermals_ed = ', iflag_thermals_ed
+    write(lunout,*)' fact_thermals_ed_dz = ', fact_thermals_ed_dz
     write(lunout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux
     write(lunout,*)' iflag_thermals_closure = ', iflag_thermals_closure