--- trunk/libf/phylmd/conflx.f	2010/12/21 15:45:48	37
+++ 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======================================================================
@@ -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======================================================================