--- trunk/libf/phylmd/Mobidic/regr_lat_time_coefoz.f90 2009/12/14 15:25:16 23 +++ trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f 2015/04/29 15:47:56 134 @@ -1,6 +1,5 @@ module regr_lat_time_coefoz_m - ! This module is clean: no C preprocessor directive, no include line. ! Author: Lionel GUEZ implicit none @@ -39,9 +38,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 numer_rec_95, 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 @@ -240,8 +238,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