--- trunk/libf/phylmd/ozonecm.f90	2009/07/31 15:18:47	22
+++ trunk/phylmd/ozonecm.f	2014/05/13 17:23:16	98
@@ -23,7 +23,7 @@
 
     use dimens_m, only: llm
     USE dimphy, ONLY : klon
-    use numer_rec, only: assert, pi
+    use nr_util, only: assert, pi
     use phyetat0_m, only: rlat
 
     REAL, INTENT (IN) :: rjour
@@ -33,7 +33,7 @@
     ! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is
     ! between interface "k" and interface "k + 1", in kDU.
 
-    ! Variables local to the procedure:
+    ! Local:
 
     REAL tozon, pl
     INTEGER i, k