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

Timestamp:

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

Author:

aslmd

Message:

Function Tsat_generic added

File:

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

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

@@ -22 +22 @@
     real,save :: RLVTT !Latent heat of vaporization (J/kg)
     real,save :: metallicity_coeff ! Coefficient to take into account the metallicity
+
+    
     contains 
 
@@ -244 +246 @@
     end subroutine Lcpdqsat_generic
 
+    !==================================================================
+    subroutine Tsat_generic(p,Tsat)
+
+        implicit none
+
+    !==================================================================
+    !     Purpose
+    !     -------
+    !     Compute the saturation temperature
+    !     for a given pressure (Pa)
+    !
+    !     Authors
+    !     -------
+    !     Noé Clément (2022)
+    !
+    !==================================================================
+
+        ! input
+        real p
+    
+        ! output
+        real Tsat
+
+
+        Tsat = 1/(1/Tref - (r*mugaz/1000.)/delta_vapH*Log(p/Pref))
+
+    end subroutine Tsat_generic
+    !==================================================================
+
 end module generic_cloud_common_h