Changeset 4173 for trunk/LMDZ.TITAN/libf/muphytitan/mm_microphysic.f90

Timestamp:

Apr 7, 2026, 4:13:35 PM (6 weeks ago)

Author:

cpetetin

Message:

TITAN PCM : evaporation and small conservation correction CP

File:

• trunk/LMDZ.TITAN/libf/muphytitan/mm_microphysic.f90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/muphytitan/mm_microphysic.f90

@@ -205 +205 @@
     REAL(kind=mm_wp), INTENT(out), OPTIONAL, DIMENSION(:,:)   :: grate     !! Growth rate (\(m^{2}.s^{-1}\)).
 
-    IF (PRESENT(aer_prec))   aer_prec   = ABS(mm_aer_prec) / dt
+    IF (PRESENT(aer_prec))   aer_prec   = -mm_aer_prec / dt
     IF (PRESENT(aer_s_w))    aer_s_w    = -mm_m3as_vsed(mm_nla:1:-1)
     IF (PRESENT(aer_f_w))    aer_f_w    = -mm_m3af_vsed(mm_nla:1:-1)
@@ -212 +212 @@
 
     IF (mm_w_clouds) THEN
-      IF (PRESENT(ccn_prec))   ccn_prec   = ABS(mm_ccn_prec) / dt
-      IF (PRESENT(ice_prec))   ice_prec   = ABS(mm_ice_prec) / dt
+      IF (PRESENT(ccn_prec))   ccn_prec   = -mm_ccn_prec / dt
+      IF (PRESENT(ice_prec))   ice_prec   = -mm_ice_prec / dt
       IF (PRESENT(ccn_w))      ccn_w      = mm_ccn_vsed(mm_nla:1:-1)
       IF (PRESENT(ccn_flux))   ccn_flux   = mm_ccn_flux(mm_nla:1:-1)