Changeset 2414 for LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90

Timestamp:

Dec 23, 2015, 5:05:06 PM (9 years ago)

Author:

crio

Message:

Prise en compte de l'effet Bergeron dans les flux de pluie grande-echelle
Activer en mettant iflag_bergeron=1 dans physiq.def (valeur par défaut 0)
Representation of the Bergeron effect in the large-scale precipitation fluxes
Activate by iflag_bergeron=1 in physiq.def (standard value 0)

File:

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

LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90

@@ -202 +202 @@
     LOGICAL, SAVE :: ok_conserv_q_omp
     INTEGER, SAVE :: iflag_fisrtilp_qsat_omp
+    INTEGER, SAVE :: iflag_bergeron_omp
     LOGICAL,SAVE :: ok_strato_omp
     LOGICAL,SAVE :: ok_hines_omp, ok_gwd_rando_omp
@@ -754 +755 @@
 
     !Config  Key  = iflag_fisrtilp_qsat
-    !Config  Desc = Flag de convection
-    !Config  Def  = 1
-    !Config  Help = Flag  pour la convection les options suivantes existent :
-    !Config         -1 pour Kinetic energy correction
-    !Config         1  conservation kinetic and enthalpy
+    !Config  Desc = Flag de fisrtilp
+    !Config  Def  = 0
+    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
+    !Config         >1 nb iterations pour converger dans le calcul de qsat
     iflag_fisrtilp_qsat_omp = 0
     CALL getin('iflag_fisrtilp_qsat',iflag_fisrtilp_qsat_omp)
+
+    !Config  Key  = iflag_bergeron
+    !Config  Desc = Flag de fisrtilp
+    !Config  Def  = 0
+    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
+    !Config         0 pas d effet Bergeron
+    !Config         1 effet Bergeron pour T<0
+    iflag_bergeron_omp = 0
+    CALL getin('iflag_bergeron',iflag_bergeron_omp)
 
     !
@@ -1958 +1967 @@
     ok_conserv_q = ok_conserv_q_omp
     iflag_fisrtilp_qsat = iflag_fisrtilp_qsat_omp
+    iflag_bergeron = iflag_bergeron_omp
 
     epmax = epmax_omp
@@ -2228 +2238 @@
     write(lunout,*)'ok_conserv_q=',ok_conserv_q
     write(lunout,*)'iflag_fisrtilp_qsat=',iflag_fisrtilp_qsat
+    write(lunout,*)'iflag_bergeron=',iflag_bergeron
     write(lunout,*)' epmax = ', epmax
     write(lunout,*)' ok_adj_ema = ', ok_adj_ema