--- trunk/dyn3d/etat0.f	2018/12/11 16:49:32	320
+++ trunk/dyn3d/etat0.f	2018/12/11 22:48:09	321
@@ -25,7 +25,7 @@
     use grille_m_m, only: grille_m
     use grid_change, only: init_dyn_phy, dyn_phy
     use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra, nbsrf
-    use iniadvtrac_m, only: iniadvtrac
+    use infotrac_init_m, only: infotrac_init
     use inifilr_m, only: inifilr
     use massdair_m, only: massdair
     use netcdf, only: nf90_nowrite
@@ -270,7 +270,7 @@
             SUM(aire_2d(:iim, jjm + 1) * masse(:iim, jjm + 1, l)) / apols
     END forall
 
-    call iniadvtrac
+    call infotrac_init
     CALL geopot(teta, pk , pks, phis, phi)
     CALL caldyn0(ucov, vcov, teta, ps, pk, phis, phi)
     CALL dynredem0(day_ref, phis)