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

Timestamp:

May 25, 2011, 12:55:27 PM (13 years ago)

Author:

idelkadi

Message:

Modifications concerning the cloud scheme:

1. In newmicro, it now possible to read a min and max effective radius of ice particles from physiq.def : rei_min and rei_max which were initially set to 3.5 and 61.29 microns in the code.

concerns : conf_phys.F90, nuage.h, newmicro.F

2. In physiq.F, in case of combination of iflag_cldcon>=5 (A. Jam cloud scheme) and iflag_coupl=5

concerns : physiq.F and thermcell_main.F90

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys.F90

@@ -129 +129 @@
   REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
   REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
+  REAL,SAVE :: rei_min_omp, rei_max_omp
   REAL,SAVE :: inertie_sol_omp,inertie_sno_omp,inertie_ice_omp
   REAL,SAVE :: qsol0_omp
@@ -858 +859 @@
   call getin('t_glace_max',t_glace_max_omp)
 
+!Config Key  = rei_min
+!Config Desc =  
+!Config Def  = 3.5
+!Config Help = 
+!
+  rei_min_omp = 3.5
+  call getin('rei_min',rei_min_omp)
+
+!
+!Config Key  = rei_max
+!Config Desc =  
+!Config Def  = 61.29
+!Config Help = 
+!
+  rei_max_omp = 61.29
+  call getin('rei_max',rei_max_omp)
+
 !
 !Config Key  = top_height
@@ -1503 +1521 @@
     t_glace_min = t_glace_min_omp
     t_glace_max = t_glace_max_omp
+    rei_min = rei_min_omp
+    rei_max = rei_max_omp
     top_height = top_height_omp
     overlap = overlap_omp
@@ -1688 +1708 @@
   write(numout,*)' t_glace_min = ',t_glace_min
   write(numout,*)' t_glace_max = ',t_glace_max
+  write(numout,*)' rei_min = ',rei_min
+  write(numout,*)' rei_max = ',rei_max
   write(numout,*)' overlap = ',overlap 
   write(numout,*)' cdmmax = ',cdmmax