--- trunk/libf/phylmd/Orography/grid_noro_m.f90 2010/03/25 14:29:07 27 +++ trunk/libf/phylmd/Orography/grid_noro_m.f90 2011/01/25 15:11:05 39 @@ -41,8 +41,7 @@ ! (d) use dimens_m, only: iim, jjm - use comconst, only: pi - use numer_rec, only: assert + use nr_util, only: assert, pi REAL, intent(in):: xdata(:), ydata(:) ! coordinates of input field REAL, intent(in):: zdata(:, :) ! input field