--- trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f	2015/04/29 15:47:56	134
+++ trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f	2016/03/11 18:47:26	178
@@ -10,11 +10,12 @@
     ! longitudes and latitudes in degrees for grids u and v.
 
     USE comconst, ONLY: g
-    USE comgeom, ONLY: aire_2d, rlatu, rlatv, rlonu, rlonv
+    USE comgeom, ONLY: aire_2d
     USE dimens_m, ONLY: iim, jjm
+    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
 
@@ -23,7 +24,7 @@
 
     ! Local:
 
-    REAL grille_s(iim+1, jjm+1)
+    REAL grille_s(iim + 1, jjm + 1)
     INTEGER i, j
 
     ! For Netcdf: