--- trunk/libf/phylmd/calltherm.f	2008/02/27 13:16:39	3
+++ 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 pplay(klon,klev)
-      REAL pphi(klon,klev)
+      REAL, intent(in):: pplay(klon,klev)
+      REAL, intent(in):: pphi(klon,klev)
 
 CFH Update Thermiques
       REAL d_t_ajs(klon,klev), d_q_ajs(klon,klev)
@@ -61,14 +61,6 @@
          zdt=dtime/float(nsplit_thermals)
          do isplit=1,nsplit_thermals
 
-cym            CALL thermcell(klon,klev,zdt
-cym     s      ,pplay,paprs,pphi
-cym     s      ,u_seri,v_seri,t_seri,q_seri
-cym     s      ,d_u_the,d_v_the,d_t_the,d_q_the
-cym     s      ,zfm_therm,zentr_therm
-cym     s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals
-cym     s      ,tho_thermals,3)
-
             CALL thermcell(klon,klev,zdt
      s      ,pplay,paprs,pphi
      s      ,u_seri,v_seri,t_seri,q_seri