--- trunk/libf/phylmd/Mobidic/regr_pr_o3.f90	2008/10/15 16:19:57	20
+++ trunk/libf/phylmd/Mobidic/regr_pr_o3.f90	2010/12/02 17:11:04	36
@@ -25,9 +25,9 @@
     use conf_gcm_m, only: dayref
     use dimens_m, only: iim, jjm, llm
     use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, &
-         nf95_get_coord
+         nf95_gw_var
     use netcdf, only:  nf90_nowrite, nf90_get_var
-    use numer_rec, only: assert
+    use nr_util, only: assert
     use grid_change, only: dyn_phy
     use regr1_step_av_m, only: regr1_step_av
     use pressure_var, only: p3d
@@ -61,7 +61,8 @@
 
     call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
 
-    call nf95_get_coord(ncid, "plev", plev)
+    call nf95_inq_varid(ncid, "plev", varid)
+    call nf95_gw_var(ncid, varid, plev)
     ! Convert from hPa to Pa because "regr_pr_av" requires so:
     plev = plev * 100.
     n_plev = size(plev)