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

Timestamp:

Apr 6, 2018, 12:58:13 PM (7 years ago)

Author:

aslmd

Message:

su_watercycle is useless as a standalone subroutine and works best as being contained in the module watercommon_h since it initializes the variables in this module

File:

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

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

@@ -23 +23 @@
       contains
 
+!==================================================================
+      subroutine su_watercycle
+
+      use comcstfi_mod, only: cpp, mugaz
+      implicit none
+
+
+!==================================================================
+!
+!     Purpose
+!     -------
+!     Set up relevant constants and parameters for the water cycle, and water cloud properties
+!
+!     Authors
+!     -------
+!     Robin Wordsworth (2010)
+!     Jeremy Leconte (2012)
+!
+!==================================================================
+
+      epsi   = mH2O / mugaz
+      RCPD   = cpp 
+
+      !RV = 1000.*R/mH2O
+      RV = 1000.*8.314/mH2O ! caution! R is R/mugaz already!
+
+      RCPV   = 1.88e3 ! specific heat capacity of water vapor at 350K
+
+      RVTMP2 = RCPV/RCPD-1. ! not currently used...
+
+      end subroutine su_watercycle
       
+
+
 !==================================================================
       subroutine Psat_water(T,p,psat,qsat)