--- trunk/libf/phylmd/Mobidic/regr_pr_o3.f90 2009/07/31 15:18:47 22 +++ trunk/libf/phylmd/Mobidic/regr_pr_o3.f90 2011/09/23 12:28:01 52 @@ -27,9 +27,9 @@ use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, & 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 numer_rec, only: regr1_step_av use pressure_var, only: p3d real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)