Changeset 3769

Timestamp:

May 16, 2025, 4:41:36 PM (5 weeks ago)

Author:

sglmd

Message:

Set a lower value for seuil_vap as qsat can be lower than the previous threshold value of 1e-10

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• moistadj.F90 (modified) (1 diff)
• moistadj_generic.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/moistadj.F90 ¶

@@ -44 +44 @@
 !      PARAMETER (t_coup=234.0)
       REAL seuil_vap
-      PARAMETER (seuil_vap=1.0E-10)
+      PARAMETER (seuil_vap=1.0E-14)
 
 !     Local variables

trunk/LMDZ.GENERIC/libf/phystd/moistadj_generic.F90 ¶

@@ -53 +53 @@
       ! PARAMETER (t_coup=234.0)
       REAL seuil_vap
-      PARAMETER (seuil_vap=1.0E-10)
+      PARAMETER (seuil_vap=1.0E-14)
 
       ! Local variables