--- trunk/libf/phylmd/FCTTRE.f90	2010/12/21 15:45:48	37
+++ trunk/libf/phylmd/FCTTRE.f90	2011/04/08 12:43:31	43
@@ -2,11 +2,14 @@
 
   ! From phylmd/FCTTRE.inc, version 1.2 2004/06/22 11:45:32
 
-  ! This COMDECK includes the thermodynamical functions for the cycle
-  ! 39 ECMWF Physics package. Consistent with YOMCST basic physics
-  ! constants, assuming the partial pressure of water vapour is given
-  ! by a first order Taylor expansion of Qs(T) with respect to
-  ! temperature, using constants in yoethf.
+  ! This module includes the thermodynamical functions for the cycle
+  ! 39 ECMWF Physics package. Consistent with "SUPHEC_M" basic
+  ! physical constants, assuming the partial pressure of water vapour
+  ! is given by a first order Taylor expansion of "Qs(T)" with respect
+  ! to temperature, using constants in "yoethf_m".
+
+  ! Probably from Buck, 1981, Journal of Applied Meteorology, 20(12),
+  ! 1527.
 
   implicit none
 
@@ -16,8 +19,8 @@
 
   REAL function FOEEW(T, DEL)
 
-    use yoethf, only: R3LES, R3IES, R4LES, R4IES
-    use YOMCST, only: rtt
+    use yoethf_m, only: R3LES, R3IES, R4LES, R4IES
+    use SUPHEC_M, only: rtt
 
     REAL, intent(in):: T, DEL
 
@@ -32,7 +35,7 @@
 
   REAL function FOEDE(T, DEL, P5ARG, QS, PCOARG)
 
-    use yoethf, only: R4LES, R4IES
+    use yoethf_m, only: R4LES, R4IES
 
     REAL, intent(in):: T, DEL
     real, intent(in):: P5ARG, QS, PCOARG
@@ -74,7 +77,7 @@
 
   REAL function dqsats(t, qs)
 
-    use YOMCST, only: RLVTT, rcpd
+    use SUPHEC_M, only: RLVTT, rcpd
 
     REAL, intent(in):: T, qs
 
@@ -89,7 +92,7 @@
 
   REAL function dqsatl(t, qs)
 
-    use YOMCST, only: RLVTT, rcpd
+    use SUPHEC_M, only: RLVTT, rcpd
 
     REAL, intent(in):: T, qs