Changeset 3281 for trunk/LMDZ.GENERIC

Timestamp:

Mar 20, 2024, 4:29:27 PM (9 months ago)

Author:

jleconte

Message:

comments on rain_generic (Noe C)

File:

• trunk/LMDZ.GENERIC/libf/phystd/rain_generic.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/rain_generic.F90

@@ -281 +281 @@
                         d_t(i,k) = - d_q(i,k) * RLVTT_generic/RCPD
                      else
+                        ! zqev/zqevt are the maximum amount of vapour that we are allowed to add by evaporation of rain
                         zqev = MAX (0.0, (zqs(i,k)-q(i,k)))*dmass(i,k)/(ptimestep*(1.d0+dqsat(i,k)))
                         !max evaporation to reach saturation implictly accounting for temperature reduction
@@ -286 +287 @@
                               *sqrt(precip_rate(i))*dmass(i,k)/pplay(i,k)*zt(i,k)*R) ! BC modif here, is it R or r/(mu/1000) ?
                         zqev  = MIN (zqev, zqevt)
-                        zqev  = MAX (zqev, 0.0) ! a priori inutile d'après les précédentes lignes
+                        zqev  = MAX (zqev, 0.0) ! not necessary according to previous lines
+
+                        ! we withdraw the evaporated rain
                         precip_rate_tmp(i)= precip_rate(i) - zqev
                         precip_rate_tmp(i)= max(precip_rate_tmp(i),0.0)