Index: LMDZ6/trunk/libf/phydev/phyredem.F90
===================================================================
--- LMDZ6/trunk/libf/phydev/phyredem.F90	(revision 3545)
+++ LMDZ6/trunk/libf/phydev/phyredem.F90	(revision 3546)
@@ -13,4 +13,5 @@
   INTEGER,PARAMETER :: tab_cntrl_len=100
   REAL :: tab_cntrl(tab_cntrl_len)
+  INTEGER :: pass
 
   ! open file
@@ -21,14 +22,16 @@
 
   tab_cntrl(:)=0.0
- 
 
-  CALL put_var("controle", "Control parameters", tab_cntrl)
+  DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
+
+    CALL put_var(pass, "controle", "Control parameters", tab_cntrl)
 
   ! coordinates
 
-  CALL put_field("longitude", "Longitudes on physics grid", longitude_deg)
+    CALL put_field(pass, "longitude", "Longitudes on physics grid", longitude_deg)
      
-  CALL put_field("latitude", "Latitudes on physics grid", latitude_deg)
+    CALL put_field(pass, "latitude", "Latitudes on physics grid", latitude_deg)
 
+  ENDDO
   ! close file