--- trunk/libf/dyn3d/start_init_phys_m.f90 2011/08/24 11:43:14 49 +++ trunk/libf/dyn3d/start_init_phys_m.f90 2011/09/23 12:28:01 52 @@ -14,10 +14,9 @@ use dimens_m, only: iim, jjm use gr_int_dyn_m, only: gr_int_dyn use inter_barxy_m, only: inter_barxy - use jumble, only: find_longitude, find_latitude use netcdf, only: nf90_nowrite use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid, & - nf95_gw_var + nf95_gw_var, find_longitude, find_latitude use nr_util, only: assert, pi REAL, intent(out):: tsol_2d(:, :), qsol_2d(:, :) ! (iim + 1, jjm + 1)