--- trunk/libf/dyn3d/etat0.f90 2010/04/01 09:07:28 30 +++ trunk/libf/dyn3d/etat0.f90 2010/04/06 17:52:58 32 @@ -37,7 +37,8 @@ use iniadvtrac_m, only: iniadvtrac use inidissip_m, only: inidissip use inigeom_m, only: inigeom - USE flincom, only: flinget, flinclo, flinopen_nozoom, flininfo + USE flincom, only: flinclo, flinopen_nozoom, flininfo + use flinget_m, only: flinget use histcom, only: histclo use paramet_m, only: ip1jm, ip1jmp1 use phyredem_m, only: phyredem @@ -221,7 +222,7 @@ ALLOCATE(dlon_lic(iml_lic)) ALLOCATE(dlat_lic(jml_lic)) ALLOCATE(fraclic(iml_lic, jml_lic)) - CALL flinopen_nozoom("landiceref.nc", iml_lic, jml_lic, & + CALL flinopen_nozoom(iml_lic, jml_lic, & llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & fid) CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp &