Index: LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90
===================================================================
--- LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90	(revision 2582)
+++ LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F90	(revision 2584)
@@ -235,6 +235,7 @@
 
 !--- Tracers in file "start_trac.nc" (added by Anne)
+  lread_inca=.FALSE.
 !$OMP MASTER
-  lread_inca=.FALSE.; fil="start_trac.nc"
+  fil="start_trac.nc"
   IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
   IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")