Index: LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90	(revision 4257)
+++ LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90	(revision 4258)
@@ -27,5 +27,5 @@
   ! Attributs netcdf sortie
   INTEGER ncid_out,rcode_out
-  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid,out_levid
+  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid
   INTEGER out_varid
   INTEGER out_lonudim,out_lonvdim
@@ -225,5 +225,5 @@
   CALL handle_err(status)
 #else
-  status=NF_PUT_VARA_REAL(ncid_out,out_levid,1,llm,rlevdeg)
+  status=NF_PUT_VARA_REAL(ncid_out,presnivs_id,1,llm,rlevdeg)
   CALL handle_err(status)
 #endif