--- trunk/libf/dyn3d/startdyn.f90 2010/04/01 14:59:19 31 +++ trunk/libf/dyn3d/startdyn.f90 2010/04/06 17:52:58 32 @@ -22,7 +22,8 @@ ! Host associated variables appearing and modified in this procedure : ! iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn, lon_ini, lat_ini, levdyn_ini - USE flincom, only: flininfo, flinopen_nozoom, flinget + USE flincom, only: flininfo, flinopen_nozoom + use flinget_m, only: flinget use comgeom, only: aire_2d, apoln, apols use conf_dat2d_m, only: conf_dat2d use inter_barxy_m, only: inter_barxy @@ -71,7 +72,7 @@ ALLOCATE(lon_dyn(iml_dyn, jml_dyn)) ALLOCATE(levdyn_ini(llm_dyn)) - CALL flinopen_nozoom(physfname, iml_dyn, jml_dyn, llm_dyn, & + CALL flinopen_nozoom(iml_dyn, jml_dyn, llm_dyn, & lon_dyn, lat_dyn, levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn) ALLOCATE(var_ana(iml_dyn, jml_dyn)) @@ -141,7 +142,7 @@ ! This procedure gets a 3D variable from a file and does the ! interpolations needed. - USE flincom, only: flinget + use flinget_m, only: flinget use numer_rec, only: assert_eq, spline, splint use inter_barxy_m, only: inter_barxy use gr_int_dyn_m, only: gr_int_dyn