Index: LMDZ.3.3/trunk/libf/phylmd/physiq.F
===================================================================
--- LMDZ.3.3/trunk/libf/phylmd/physiq.F	(revision 47)
+++ LMDZ.3.3/trunk/libf/phylmd/physiq.F	(revision 48)
@@ -2310,6 +2310,5 @@
      .                                   iim*(jjm+1)*klev,ndex3d)
 c
-      CALL gr_fi_ecrit(klev,klon,iim,jjm+1, d_q_dyn(1,1,ivap),
-     .                 zx_tmp_3d)
+      CALL gr_fi_ecrit(klev,klon,iim,jjm+1, d_q_dyn, zx_tmp_3d)
       CALL histwrite(nid_mth,"dqdyn",itap,zx_tmp_3d,
      .                                   iim*(jjm+1)*klev,ndex3d)