--- trunk/libf/phylmd/radiornpb.f90	2008/08/05 13:31:32	17
+++ trunk/libf/phylmd/radiornpb.f90	2010/12/02 17:11:04	36
@@ -18,7 +18,7 @@
 
     use dimens_m, only: llm
     use dimphy, only: klon, nbtr
-    use numer_rec, only: assert
+    use nr_util, only: assert
 
     REAL, intent(in):: tr_seri(:, :, :), pdtphys, tautr(:)
     real radiornpb(klon, llm, 2)