--- trunk/libf/phylmd/conflx.f	2008/07/21 16:05:07	12
+++ trunk/libf/phylmd/conflx.f	2011/09/20 09:14:34	51
@@ -9,8 +9,8 @@
 c
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       use fcttre
       IMPLICIT none
 c======================================================================
@@ -25,7 +25,7 @@
       REAL, intent(in):: dtime            ! pas d'integration (s)
       REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa)
       REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa)
-      REAL t(klon,klev)     ! temperature (K)
+      REAL, intent(in):: t(klon,klev)     ! temperature (K)
       REAL q(klon,klev)     ! humidite specifique (g/g)
       REAL w(klon,klev)     ! vitesse verticale (Pa/s)
       REAL con_t(klon,klev) ! convergence de temperature (K/s)
@@ -215,8 +215,8 @@
      .                   dt_con, dq_con, pmflxr, pmflxs)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
             use yoecumf
       IMPLICIT none
 C     ------------------------------------------------------------------
@@ -506,8 +506,8 @@
      .           klab,pen_u, pde_u, pen_d, pde_d)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       IMPLICIT none
 C----------------------------------------------------------------------
 C THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC.
@@ -631,8 +631,8 @@
      *     ptu, pqu, plu, ldcum, kcbot, klab)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       IMPLICIT none
 C----------------------------------------------------------------------
 C THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q)
@@ -716,8 +716,8 @@
      .     pen_u, pde_u)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
             use yoecumf
       IMPLICIT none
 C----------------------------------------------------------------------
@@ -1020,8 +1020,8 @@
      .  ,  pmflxr, pmflxs)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       use fcttre
             use yoecumf
       IMPLICIT none
@@ -1265,8 +1265,8 @@
      .  ,  pdpmel, dt_con, dq_con)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
             use yoecumf
       IMPLICIT none
 c----------------------------------------------------------------------
@@ -1335,8 +1335,8 @@
      .     pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
             use yoecumf
       IMPLICIT none
 C
@@ -1446,8 +1446,8 @@
      .           lddraf, pen_d, pde_d)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
             use yoecumf
       IMPLICIT none
 C
@@ -1561,8 +1561,8 @@
       SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       use fcttre
       IMPLICIT none
 c======================================================================