Changeset 3489

Timestamp:

Oct 30, 2024, 6:09:36 PM (3 weeks ago)

Author:

mmaurice

Message:

Generic PCM:

Bug fix: initialize dlnpsat to zero in function Lcpdqsat_water even if
p<psat to avoid moistadj to crash in 1D in debug mode.

MM

File:

• trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90 (modified) (1 diff)

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

@@ -155 +155 @@
          if (psat.gt.p) then
             dqsat=0.
+       dlnpsat=0.
             return
          endif