Changeset 4073 for trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_globals.F90

Timestamp:

Feb 16, 2026, 3:47:40 PM (13 days ago)

Author:

debatzbr

Message:

Pluto PCM: Improvement of Ice Microphysics + some cleans.
Allows for nucleation on spherical, fractal, or both aerosol types.
Add coagulation of ice particles.
BBT

File:

• trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_globals.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_globals.F90

@@ -93 +93 @@
     ! Moments parameters (mm_clouds_init)
     PROTECTED :: mm_m0ccn, mm_m3ccn, mm_m3ice
-    ! Moments parameters (derived, are updated with moments parameters)
-    PROTECTED :: mm_drad, mm_drho
     ! Thresholds parameters
     PROTECTED :: mm_m0ccn_min, mm_m3ccn_min, mm_m3cld_min, mm_drad_min, mm_drad_max
@@ -1291 +1289 @@
   
       IF (Ntot <= mm_m0ccn_min .OR. Vtot <= mm_m3cld_min) THEN
-        drad = mm_drad_min
-        IF (PRESENT(drho)) drho = mm_rhoaer
+        drad = 0._mm_wp
+        IF (PRESENT(drho)) drho = 0._mm_wp
       ELSE
         drad = (Vtot / Ntot)**athird