--- trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f	2015/05/26 17:46:03	139
+++ trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f	2016/03/11 18:47:26	178
@@ -15,7 +15,7 @@
     use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv
     USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_int
     USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &
-         nf95_enddef, nf95_put_att, nf95_put_var, nf95_redef
+         nf95_enddef, nf95_put_att, nf95_put_var
     USE nr_util, ONLY: pi
     USE start_init_orog_m, ONLY: mask
 
@@ -24,7 +24,7 @@
 
     ! Local:
 
-    REAL grille_s(iim+1, jjm+1)
+    REAL grille_s(iim + 1, jjm + 1)
     INTEGER i, j
 
     ! For Netcdf: