--- trunk/libf/phylmd/newmicro.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/newmicro.f	2011/01/06 17:52:19	38
@@ -11,7 +11,7 @@
      s                  cldtaupi, re, fl)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       use nuagecom
       IMPLICIT none
 c======================================================================
@@ -42,7 +42,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)