Index: LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90	(revision 3584)
+++ LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90	(revision 3585)
@@ -11,10 +11,12 @@
   SUBROUTINE init_etat0_limit_unstruct
 #ifdef CPP_XIOS
-  USE xios
-  USE mod_phys_lmdz_para
-  USE mod_grid_phy_lmdz
-  USE ioipsl, ONLY : getin, ioget_year_len
+  USE xios, ONLY: xios_set_axis_attr, xios_set_fieldgroup_attr, &
+                  xios_set_filegroup_attr, xios_set_file_attr
+  USE mod_phys_lmdz_para, ONLY: is_omp_master
+  USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
+  USE ioipsl, ONLY : ioget_year_len
+  USE ioipsl_getin_p_mod, ONLY: getin_p
   USE time_phylmdz_mod, ONLY : annee_ref
-  USE create_etat0_unstruct_mod
+  USE create_etat0_unstruct_mod, ONLY: init_create_etat0_unstruct
   IMPLICIT NONE
   
@@ -24,9 +26,7 @@
     
       IF (grid_type==unstructured) THEN
-        IF (is_master) CALL getin("iflag_phys",iflag_phys)
-        CALL bcast(iflag_phys)
+        CALL getin_p("iflag_phys",iflag_phys)
         
-        IF (is_master) CALL getin('create_etat0_limit',create_etat0_limit) 
-        CALL bcast(create_etat0_limit)
+        CALL getin_p('create_etat0_limit',create_etat0_limit)
         
         ndays=ioget_year_len(annee_ref)
@@ -54,12 +54,14 @@
   SUBROUTINE create_etat0_limit_unstruct
 #ifdef CPP_XIOS
-  USE mod_grid_phy_lmdz
-  USE create_etat0_unstruct_mod
-  USE create_limit_unstruct_mod
-  USE phyaqua_mod
-  USE mod_phys_lmdz_para
-  USE ioipsl, ONLY : getin
-  USE dimphy
-  USE xios 
+  USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
+  USE create_etat0_unstruct_mod, ONLY: create_etat0_unstruct
+  USE create_limit_unstruct_mod, ONLY: create_limit_unstruct
+  USE phyaqua_mod, ONLY: iniaqua
+  USE phys_cal_mod, only: year_len
+  USE mod_phys_lmdz_para, ONLY: is_omp_master
+  USE ioipsl_getin_p_mod, ONLY: getin_p
+  USE dimphy, ONLY: klon
+  USE xios, ONLY: xios_context_finalize, xios_set_current_context, &
+                  xios_finalize
   USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
@@ -71,6 +73,5 @@
       IF (grid_type==unstructured) THEN
   
-        IF (is_master) CALL getin("iflag_phys",iflag_phys)
-        CALL bcast(iflag_phys)
+        CALL getin_p("iflag_phys",iflag_phys)
 
         IF (iflag_phys<100) THEN
@@ -96,5 +97,5 @@
         ELSE
           IF (create_etat0_limit) THEN 
-            CALL iniaqua(klon,iflag_phys)
+            CALL iniaqua(klon,year_len,iflag_phys)
               IF (is_omp_master)  THEN
                 CALL xios_context_finalize()