--- trunk/libf/dyn3d/startdyn.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/startdyn.f90	2008/10/15 16:19:57	20
@@ -142,10 +142,8 @@
     ! interpolations needed.
 
     USE ioipsl, only: flinget
-    use nrutil, only: assert_eq
-
+    use numer_rec, only: assert_eq, spline, splint
     use inter_barxy_m, only: inter_barxy
-    use interpolation, only: spline, splint
     use gr_int_dyn_m, only: gr_int_dyn
     use conf_dat3d_m, only: conf_dat3d
 
@@ -174,10 +172,10 @@
     lml = size(pls_in, 3)
 
     print *, "iml = ", iml, ", jml = ", jml
-    print *, 'Going into flinget to extract the 3D field.'
     print *, "fid_dyn = ", fid_dyn, ", varname = ", varname
     print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, &
          ", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn
+    print *, 'Going into flinget to extract the 3D field.'
     CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, &
          var_ana3d)