--- trunk/libf/phylmd/calltherm.f	2008/06/05 12:43:08	11
+++ trunk/libf/phylmd/calltherm.f	2008/07/21 16:05:07	12
@@ -12,7 +12,7 @@
       use ctherm
       implicit none
 
-      REAL dtime
+      REAL, intent(in):: dtime
 
       REAL u_seri(klon,klev),v_seri(klon,klev)
       REAL t_seri(klon,klev),q_seri(klon,klev)