--- trunk/libf/dyn3d/etat0.f90	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/etat0.f90	2010/04/06 17:52:58	32
@@ -37,7 +37,9 @@
     use iniadvtrac_m, only: iniadvtrac
     use inidissip_m, only: inidissip
     use inigeom_m, only: inigeom
-    USE ioipsl, only: flinget, flinclo, flinopen_nozoom, flininfo, histclo
+    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
     use pressure_var, only: pls, p3d
@@ -48,7 +50,7 @@
     USE start_init_orog_m, only: start_init_orog, mask, phis
     use start_init_phys_m, only: qsol_2d
     use startdyn, only: start_inter_3d, start_init_dyn
-    use temps, only: itau_phy, annee_ref, day_ref, dt
+    use temps, only: itau_phy, annee_ref, day_ref
 
     ! Variables local to the procedure:
 
@@ -106,6 +108,7 @@
     REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
     REAL w(ip1jmp1, llm)
     REAL phystep
+    real trash
 
     !---------------------------------
 
@@ -219,8 +222,8 @@
     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, &
-         llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt,  &
+    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 &
          , 1, 1, fraclic)