--- trunk/libf/phylmd/Mobidic/regr_lat_time_coefoz.f90	2009/07/31 15:18:47	22
+++ trunk/libf/phylmd/Mobidic/regr_lat_time_coefoz.f90	2011/07/01 15:00:48	47
@@ -39,9 +39,8 @@
 
     use dimens_m, only: jjm
     use comgeom, only: rlatv
-    use comconst, only: pi
-    use regr1_step_av_m, only: regr1_step_av
-    use regr3_lint_m, only: regr3_lint
+    use nr_util, only: pi
+    use l_util, only: regr1_step_av, regr3_lint
     use netcdf95, only: nf95_open, nf95_gw_var, nf95_close, &
          nf95_inq_varid, handle_err, nf95_put_var
     use netcdf, only: nf90_nowrite, nf90_get_var
@@ -127,7 +126,7 @@
     name_out(i_v) = "a2"
 
     i_v = i_v + 1
-    name_in(i_v) = "r"
+    name_in(i_v) = "tro3"
     name_out(i_v) = "r_Mob"
 
     i_v = i_v + 1
@@ -240,8 +239,7 @@
 
     use dimens_m, only: jjm
     use comgeom, only: rlatu
-    use comconst, only: pi
-    use numer_rec, only: assert_eq
+    use nr_util, only: assert_eq, pi
 
     use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &
          nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var