--- trunk/libf/phylmd/Mobidic/regr_pr_coefoz.f90 2008/07/21 16:05:07 12 +++ trunk/libf/phylmd/Mobidic/regr_pr_coefoz.f90 2008/07/25 19:59:34 13 @@ -20,7 +20,7 @@ use netcdf, only: nf90_get_var use grid_change, only: dyn_phy use regr_pr, only: regr_pr_av - use nrutil, only: assert + use numer_rec, only: assert integer, intent(in):: ncid ! NetCDF ID of the file character(len=*), intent(in):: name ! of the NetCDF variable @@ -85,7 +85,7 @@ use netcdf, only: nf90_get_var use grid_change, only: dyn_phy use regr_pr, only: regr_pr_int - use nrutil, only: assert + use numer_rec, only: assert integer, intent(in):: ncid ! NetCDF ID of the file character(len=*), intent(in):: name ! of the NetCDF variable