--- trunk/libf/phylmd/phytrac.f90	2010/12/02 17:11:04	36
+++ trunk/libf/phylmd/phytrac.f90	2011/01/06 17:52:19	38
@@ -30,7 +30,7 @@
     use clesphys, only: ecrit_tra
     use clesphys2, only: iflag_con
     use abort_gcm_m, only: abort_gcm
-    use YOMCST, only: rg
+    use SUPHEC_M, only: rg
     use ctherm, only: iflag_thermals
     use regr_pr_comb_coefoz_m, only: regr_pr_comb_coefoz
     use phyetat0_m, only: rlat