--- trunk/libf/phylmd/ajsec.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/ajsec.f	2011/01/06 17:52:19	38
@@ -4,7 +4,7 @@
       SUBROUTINE ajsec(paprs, pplay, t,q, d_t,d_q)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
@@ -16,7 +16,7 @@
 c d_t-----output-R-Incrementation de la temperature
 c======================================================================
       REAL, intent(in):: paprs(klon,klev+1)
-      real pplay(klon,klev)
+      real, intent(in):: pplay(klon,klev)
       REAL t(klon,klev), q(klon,klev)
       REAL d_t(klon,klev), d_q(klon,klev)
 c