Index: /LMDZ.3.3/trunk/libf/dyn3d/physdem.F
===================================================================
--- /LMDZ.3.3/trunk/libf/dyn3d/physdem.F	(revision 84)
+++ /LMDZ.3.3/trunk/libf/dyn3d/physdem.F	(revision 85)
@@ -41,8 +41,8 @@
 c Ajout de quelques parametres orographiques (F. LOTT janvier 1995)
 
-      REAL zmea(iip1,jjp1),zstd(iip1,jjp1)
-      REAL zsig(iip1,jjp1),zgam(iip1,jjp1),zthe(iip1,jjp1)
-      REAL zpic(iip1,jjp1),zval(iip1,jjp1)
-      REAL rugsrel(iip1,jjp1)
+      REAL zmea(klon),zstd(klon)
+      REAL zsig(klon),zgam(klon),zthe(klon)
+      REAL zpic(klon),zval(klon)
+      REAL rugsrel(klon)
       INTEGER idayref,anneeref
 
@@ -280,5 +280,4 @@
 #endif
 c
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zmea, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -294,5 +293,4 @@
 #endif
 c
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zstd, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -308,5 +306,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zsig, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -322,5 +319,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zgam, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -336,5 +332,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zthe, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -350,5 +345,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zpic, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -364,5 +358,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zval, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -378,5 +371,4 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, rugsrel, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE