--- trunk/libf/phylmd/Mobidic/o3_chem.f90	2008/03/31 12:51:21	8
+++ trunk/libf/phylmd/Mobidic/o3_chem.f90	2008/07/25 19:59:34	13
@@ -13,12 +13,11 @@
     ! This procedure evolves the ozone mass fraction through a time
     ! step taking only chemistry into account.
 
-    use nrutil, only: assert
+    use numer_rec, only: assert, pi
     use dimphy, only: klon
     use dimens_m, only: llm
-    use read_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm
+    use regr_pr_comb_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm
     use orbite_m, only: orbite, zenang
-    use nrtype, only: pi
 
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
     real, intent(in):: gmtime ! heure de la journée en fraction de jour
@@ -112,8 +111,8 @@
 
     ! This function computes the production rate of ozone by chemistry.
 
-    use read_coefoz_m, only: a6_mass
-    use nrutil, only: assert
+    use regr_pr_comb_coefoz_m, only: a6_mass
+    use numer_rec, only: assert
     use dimens_m, only: llm
     use dimphy, only: klon