--- trunk/libf/dyn3d/dynetat0.f90	2008/04/18 14:45:53	10
+++ trunk/libf/dyn3d/dynetat0.f90	2008/07/25 19:59:34	13
@@ -24,7 +24,7 @@
     use advtrac_m, only: tname
     use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE
     use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR
-    use nrutil, only: assert
+    use numer_rec, only: assert
 
     !   Arguments:
     REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :)