Changeset 4119

Timestamp:

Mar 29, 2022, 6:01:08 PM (2 years ago)

Author:

evignon

Message:

add latitude_deg as input of newmicro in phylmdiso/physiq_mod

Location:

LMDZ6/trunk/libf

Files:

• phylmd/newmicro.F90 (modified) (1 diff)
• phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/newmicro.F90

@@ -456 +456 @@
             dei=(1.2351+0.0105*(t(i,k)-273.15))*(45.8966*(iwc**0.2214) + &
                &0.7957*(iwc**0.2535)*(t(i,k)-83.15))
-            
-            deimax=155.0
-            deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI)
+            !deimax=155.0
+            !deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI)
+            !Etienne: deimax and deimin controled by rei_max and rei_min in physiq.def
+            deimax=rei_max*2.0
+            deimin=2.0*rei_min+40*cos(abs(latitude_deg(i))/180.*RPI) 
             dei=min(dei,deimax)
             dei=max(dei,deimin)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -5381 +5381 @@
                flwp, fiwp, flwc, fiwc, &
                mass_solu_aero, mass_solu_aero_pi, &
-               cldtaupi, re, fl, ref_liq, ref_ice, &
+               cldtaupi, latitude_deg, re, fl, ref_liq, ref_ice, &
                ref_liq_pi, ref_ice_pi)
        ELSE