Changeset 3683 for trunk/LMDZ.PLUTO/libf/phypluto/mp2m_diagnostics.F90

Timestamp:

Mar 14, 2025, 2:28:44 PM (3 months ago)

Author:

debatzbr

Message:

Solves random variations of the SW heating at the model top
BBT

File:

• trunk/LMDZ.PLUTO/libf/phypluto/mp2m_diagnostics.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/mp2m_diagnostics.F90

@@ -78 +78 @@
     m3af = pq(:,:,micro_indx(4)) * int2ext
 
-    WHERE(m0as > 1e-10 .AND. m3as > (1e-10*alpha_s(3.)*haze_rc_prod**3))
+    WHERE(m0as > 1e-8 .AND. m3as > (1e-8*alpha_s(3.)*haze_rc_prod**3))
       mp2m_rc_sph = (m3as / (m0as*alpha_s(3.)))**(1./3.)
     ELSEWHERE
@@ -84 +84 @@
     ENDWHERE
 
-    WHERE(m0af > 1e-10 .AND. m3af > (1e-10*alpha_f(3.)*haze_rm**3))
+    WHERE(m0af > 1e-8 .AND. m3af > (1e-8*alpha_f(3.)*haze_rm**3))
       mp2m_rc_fra = (m3af / (m0af*alpha_f(3.)))**(1./3.)
     ELSEWHERE