--- trunk/libf/phylmd/FCTTRE.f90	2011/04/08 12:43:31	43
+++ trunk/phylmd/FCTTRE.f	2014/03/05 14:57:53	82
@@ -1,15 +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 module includes the thermodynamical functions for the cycle
-  ! 39 ECMWF Physics package. Consistent with "SUPHEC_M" basic
+  ! 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.
+  ! Probably from Buck, 1981, Journal of Applied Meteorology, volume
+  ! 20, number 12, page 1527.
 
   implicit none
 
@@ -22,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
 
     !-----------------------