Changeset 1525 for LMDZ5/trunk/libf/phylmd/thermcell_main.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/thermcell_main.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/thermcell_main.F90

@@ -753 +753 @@
       enddo
 
-      if (iflag_coupl==3 .or. iflag_coupl==4) then
+      if (iflag_coupl>=3 .and. iflag_coupl<=5) then
       do ig=1,ngrid
 !valeur integree de alp_bl * 0.5: