--- trunk/libf/phylmd/conflx.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/conflx.f	2011/01/06 17:52:19	38
@@ -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======================================================================
@@ -22,7 +22,7 @@
 c         et lessivage des traceurs passifs.
 c======================================================================
 c Entree:
-      REAL dtime            ! pas d'integration (s)
+      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)
@@ -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     ------------------------------------------------------------------
@@ -249,7 +249,8 @@
       LOGICAL  llo1
       REAL dt_con(klon,klev), dq_con(klon,klev)
       REAL zmfmax, zdh
-      REAL pdtime, zqumqe, zdqmin, zalvdcp, zhsat, zzz
+      REAL, intent(in):: pdtime
+      real zqumqe, zdqmin, zalvdcp, zhsat, zzz
       REAL zhhat, zpbmpt, zgam, zeps, zfac
       INTEGER i, k, ikb, itopm2, kcum
 c
@@ -492,7 +493,7 @@
 c----------------------------------------------------------------------
 c calculer les tendances pour T et Q
 c----------------------------------------------------------------------
-      CALL flxdtdq(pdtime, itopm2, paph, ldcum, pten,
+      CALL flxdtdq(itopm2, paph, ldcum, pten,
      e     zmfus, zmfds, zmfuq, zmfdq, zmful, zdmfup, zdmfdp, zdpmel,
      s     dt_con,dq_con)
 c
@@ -505,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.
@@ -630,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)
@@ -715,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----------------------------------------------------------------------
@@ -724,7 +725,7 @@
 C FOR CUMULUS PARAMETERIZATION
 C----------------------------------------------------------------------
 C
-      REAL pdtime
+      REAL, intent(in):: pdtime
       REAL pten(klon,klev), ptenh(klon,klev)
       REAL pqen(klon,klev), pqenh(klon,klev), pqsen(klon,klev)
       REAL pgeo(klon,klev), pgeoh(klon,klev)
@@ -1019,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
@@ -1053,7 +1054,8 @@
       LOGICAL  ldland(klon), ldcum(klon)
       INTEGER k, kp, i
       REAL zcons1, zcons2, zcucov, ztmelp2
-      REAL pdtime, zdp, zzp, zfac, zsnmlt, zrfl, zrnew
+      REAL, intent(in):: pdtime
+      real zdp, zzp, zfac, zsnmlt, zrfl, zrnew
       REAL zrmin, zrfln, zdrfl
       REAL zpds, zpdr, zdenom
       INTEGER ktopm2, itop, ikb
@@ -1258,13 +1260,13 @@
 c
       RETURN
       END
-      SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten
+      SUBROUTINE flxdtdq(ktopm2, paph, ldcum, pten
      .  ,  pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp
      .  ,  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----------------------------------------------------------------------
@@ -1283,7 +1285,6 @@
       REAL dt_con(klon,klev), dq_con(klon,klev)
 c
       INTEGER ktopm2
-      REAL pdtime
 c
       INTEGER i, k
       REAL zalv, zdtdt, zdqdt
@@ -1334,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
@@ -1445,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
@@ -1560,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======================================================================