--- trunk/libf/phylmd/nuage.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/nuage.f	2011/01/06 17:52:19	38
@@ -10,7 +10,7 @@
      s                  cldtaupi, re, fl)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910
@@ -40,7 +40,7 @@
 C
 c
       REAL, intent(in):: paprs(klon,klev+1)
-      real pplay(klon,klev)
+      real, intent(in):: pplay(klon,klev)
       REAL t(klon,klev)
 c
       REAL pclc(klon,klev)
@@ -231,7 +231,7 @@
      .                   diafra,dialiq)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c
 c Laurent Li (LMD/CNRS), le 12 octobre 1998
@@ -244,7 +244,7 @@
 c
 c Arguments d'entree:
       REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche
-      REAL pplay(klon,klev) ! pression (Pa) au milieu de couche
+      REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche
       REAL t(klon,klev) ! temperature (K)
       REAL q(klon,klev) ! humidite specifique (Kg/Kg)
       REAL rain(klon) ! pluie convective (kg/m2/s)
@@ -315,8 +315,8 @@
       SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
 c Fonctions thermodynamiques:
       use fcttre
       IMPLICIT none
@@ -324,7 +324,7 @@
 c
 c Arguments d'entree:
       REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche
-      REAL pplay(klon,klev) ! pression (Pa) au milieu de couche
+      REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche
       REAL t(klon,klev) ! temperature (K)
       REAL q(klon,klev) ! humidite specifique (Kg/Kg)
 c