--- trunk/libf/phylmd/cltracrn.f90	2008/03/31 12:24:17	7
+++ trunk/phylmd/cltracrn.f90	2013/11/15 18:45:49	76
@@ -5,13 +5,11 @@
      lat, &
      d_tr,d_trs )
 
-  ! This procedure is clean: no C preprocessor directive, no include line.
-
   ! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09
 
   use indicesol, only: nbsrf
   use dimphy, only: klon, klev
-  use YOMCST, only: RD, rg
+  use SUPHEC_M, only: RD, rg
 
   IMPLICIT none
   !======================================================================
@@ -53,7 +51,8 @@
   real ftsol(klon,nbsrf), pctsrf(klon,nbsrf) 
   REAL tr(klon,klev), trs(klon)
   REAL, intent(in):: paprs(klon,klev+1)
-  real pplay(klon,klev), delp(klon,klev)
+  real, intent(in):: pplay(klon,klev)
+  real delp(klon,klev)
   REAL masktr(klon) 
   REAL fshtr(klon) 
   REAL hsoltr
@@ -112,7 +111,6 @@
   !AA   Il doit y avoir coherence (dc la meme chose ici)
 
   DO i = 1, klon
-     !AA         zx_alpha1(i) = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))
      zx_alpha1(i) = 1.0
      zx_alpha2(i) = 1.0 - zx_alpha1(i)
   ENDDO