--- trunk/libf/phylmd/calltherm.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/calltherm.f	2011/07/01 15:00:48	47
@@ -12,13 +12,13 @@
       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)
       REAL, intent(in):: paprs(klon,klev+1)
       REAL, intent(in):: pplay(klon,klev)
-      REAL pphi(klon,klev)
+      REAL, intent(in):: pphi(klon,klev)
 
 CFH Update Thermiques
       REAL d_t_ajs(klon,klev), d_q_ajs(klon,klev)