Changeset 875 for trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90

Timestamp:

Feb 11, 2013, 11:06:56 AM (12 years ago)

Author:

jleconte

Message:

11/02/2013 == JL

• Updated moist convection scheme to handle situations with a large water vapor content
• Added a keyword to enable ocean runoff in callphys.def (activerunoff)

File:

• trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90 (modified) (4 diffs)

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

@@ -77 +77 @@
 
 !==================================================================
-      subroutine Lcpdqsat_water(T,p,psat,qsat,dqsat)
+      subroutine Lcpdqsat_water(T,p,psat,qsat,dqsat,dlnpsat)
 
          implicit none
@@ -84 +84 @@
 !     Purpose
 !     -------
-!     Compute L/cp*d (q_sat)/d T
+!     Compute dqsat=L/cp*d (q_sat)/d T and dlnpsat=L/cp d(ln Psat)/d T
 !     for a given temperature (K)! 
 !     Based on the Tetens formula from L.Li physical parametrization manual
@@ -98 +98 @@
   
 !        output
-         real dqsat
+         real dqsat,dlnpsat
 
 ! JL12 variables for tetens formula
@@ -125 +125 @@
 
          dqsat=RLVTT/RCPD*qsat*(p/(p-(1.-epsi)*psat))*dummy
+         dlnpsat=RLVTT/RCPD*dummy
          return
       end subroutine Lcpdqsat_water