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

Timestamp:

Feb 10, 2015, 3:23:19 PM (10 years ago)

Author:

crio

Message:

Expérience du tube de dentifrice: Ajout d'un terme de grande-échelle dans
la fermeture du schéma de convection. La fraction de la convergence
grande-échelle de masse au LFC ajoutée au flux de masse à la base calculé
par la fermeture en ALP est controlée par coef_clos_ls lu dans physiq.def
(valeur comprise entre 0 et 1, 0 par défaut).
Tube of toothpaste experiment: Additional large-scale term in the closure
formulation of the deep convection scheme. The fraction of the large-scale
convergence of mass at LFC additioned to the cloud-base mass-flux given by
the ALP closure is controlled by coef_clos_ls read in physiq.def (value
between 0 and 1, 0 by default).

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -132 +132 @@
     integer,SAVE :: iflag_coupl_omp,iflag_clos_omp,iflag_wake_omp
     integer,SAVE :: iflag_cvl_sigd_omp
+    REAL, SAVE :: coef_clos_ls_omp
     REAL, SAVE :: supcrit1_omp, supcrit2_omp
     INTEGER, SAVE :: iflag_mix_omp
@@ -1343 +1344 @@
     iflag_clos_omp = 1
     call getin('iflag_clos',iflag_clos_omp)
+    !
+    !Config Key  = coef_clos_ls
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    coef_clos_ls_omp = 0.
+    call getin('coef_clos_ls',coef_clos_ls_omp)
+
     !
     !Config Key  = iflag_cvl_sigd
@@ -1946 +1956 @@
     iflag_clos = iflag_clos_omp
     iflag_wake = iflag_wake_omp
+    coef_clos_ls = coef_clos_ls_omp
     alp_offset = alp_offset_omp
     iflag_cvl_sigd = iflag_cvl_sigd_omp
@@ -2135 +2146 @@
     write(lunout,*)' iflag_thermals_closure = ', iflag_thermals_closure
     write(lunout,*)' iflag_clos = ', iflag_clos
+    write(lunout,*)' coef_clos_ls = ', coef_clos_ls
     write(lunout,*)' type_run = ',type_run 
     write(lunout,*)' ok_cosp = ',ok_cosp