Index: LMDZ4/trunk/libf/phylmd/phyetat0.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/phyetat0.F	(revision 778)
+++ LMDZ4/trunk/libf/phylmd/phyetat0.F	(revision 779)
@@ -36,5 +36,4 @@
       INTEGER radpas
       REAL rlat_p(klon), rlon_p(klon)
-      REAL rlat_p(klon2), rlon_p(klon2)
       REAL co2_ppm_etat0
       REAL solaire_etat0
@@ -160,7 +159,7 @@
       ENDIF
 #ifdef NC_DOUBLE
-      ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl_omp)
-#else
-      ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl_omp)
+      ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl)
+#else
+      ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl)
 #endif
       IF (ierr.NE.NF_NOERR) THEN