Changeset 2702 for trunk/LMDZ.GENERIC/libf/phystd/generic_cloud_common_h.F90

Timestamp:

Jun 21, 2022, 11:05:36 AM (2 years ago)

Author:

aslmd

Message:

fixed the missing E3 for delta_vapH of Cr

File:

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

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

@@ -58 +58 @@
         else if (trim(specname) .eq. "Cr") then
             print*,"Loading data for Cr"
-            delta_vapH = 394.2 
+            delta_vapH = 394.2E3
             Tref = 2749.0
             Pref  = 1.0E5