Index: /LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F	(revision 544)
+++ /LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F	(revision 545)
@@ -111,4 +111,7 @@
       character*10 znom(ntr,nQ)
       character*20 znoml(ntr,nQ)
+cvg>>
+      save znom, nom
+cvg<<
       character*10 zunites(ntr,nQ)
       integer iave,itot,immc,itrs,istn
Index: /LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F	(revision 544)
+++ /LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F	(revision 545)
@@ -720,6 +720,6 @@
       write(tapeout,*)' nbapp_rad = ', nbapp_rad
       write(tapeout,*)' iflag_con = ', iflag_con
-      write(tapeout,*)' clonn = ', clonn 
-      write(tapeout,*)' clatt = ', clatt
+      write(tapeout,*)' clonn = ', clon
+      write(tapeout,*)' clatt = ', clat
       write(tapeout,*)' grossismx = ', grossismx
       write(tapeout,*)' grossismy = ', grossismy
Index: /LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F	(revision 544)
+++ /LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F	(revision 545)
@@ -55,6 +55,8 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "../phylmd/YOMCST.h"
-#include "../phylmd/YOETHF.h"
+Cmed#include "../phylmd/YOMCST.h"
+Cmed#include "../phylmd/YOETHF.h"
+#include "YOMCST.h"
+#include "YOETHF.h"
 C
       INTEGER imjmp1
Index: /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90	(revision 544)
+++ /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90	(revision 545)
@@ -1340,5 +1340,7 @@
   INTEGER :: ndexct(iim*(jjm+1)),ndexcs(iim*(jjm+1))
   REAL :: zx_lon(iim,jjm+1), zx_lat(iim,jjm+1), zjulian
-  integer :: idayref, itau_w
+  integer :: idayref
+!med  integer :: itau_w
+  integer,save :: itau_w
 #include "param_cou.h"
 #include "inc_cpl.h"
Index: /LMDZ.3.3/branches/rel-LF/makegcm
===================================================================
--- /LMDZ.3.3/branches/rel-LF/makegcm	(revision 544)
+++ /LMDZ.3.3/branches/rel-LF/makegcm	(revision 545)
@@ -811,4 +811,10 @@
 endif
 
+if ($couple == true) then
+  set optim=" $optim -DCPP_COUPLE"
+  set optim90=" $optim90 -DCPP_COUPLE"
+  set optimtru90=" $optimtru90 -DCPP_COUPLE"
+endif
+
 set link="$f90 $optim90"