--- trunk/libf/phylmd/FCTTRE.f90	2011/01/25 15:11:05	39
+++ trunk/phylmd/FCTTRE.f90	2014/02/05 17:51:07	78
@@ -1,13 +1,15 @@
 module FCTTRE
 
-  ! From phylmd/FCTTRE.inc, version 1.2 2004/06/22 11:45:32
+  ! 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 SUPHEC_M 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_m.
-  ! Probably from Buck, 1981, Journal of Applied Meteorology, 20, 1527.
+  ! 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, volume
+  ! 20, number 12, page 1527.
 
   implicit none
 
@@ -20,7 +22,8 @@
     use yoethf_m, only: R3LES, R3IES, R4LES, R4IES
     use SUPHEC_M, only: rtt
 
-    REAL, intent(in):: T, DEL
+    REAL, intent(in):: T
+    REAL, intent(in):: DEL ! 1 for ice, 0 for liquid
 
     !-----------------------