Index: LMDZ6/trunk/libf/dyn3d/dynetat0.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3d/dynetat0.F90	(revision 4266)
+++ LMDZ6/trunk/libf/dyn3d/dynetat0.F90	(revision 4268)
@@ -42,5 +42,5 @@
   INTEGER :: iq, fID, vID, idecal, iqParent, iName, iZone, iPhase
   REAL    :: time, tab_cntrl(length)               !--- RUN PARAMS TABLE
-  LOGICAL :: lOldHNO3
+  LOGICAL :: lOldHNO3, ll
 !-------------------------------------------------------------------------------
   modname="dynetat0"
@@ -128,13 +128,13 @@
 
 !--- Tracers
-  lOldHNO3=.FALSE.
+  ll=.FALSE.
 #ifdef REPROBUS
   !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g
-  lOldHNO3 = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
+  ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
 #endif
   DO iq=1,nqtot
     var = tracers(iq)%name
     oldVar = new2oldName(var)
-    lOldHNO3 = lOldHNO3 .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
+    lOldHNO3 = ll .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
     !--------------------------------------------------------------------------------------------------------------------------
     IF(NF90_INQ_VARID(fID, var, vID) == NF90_NoErr .AND. .NOT.lOldHNO3) THEN             !=== REGULAR CASE
Index: LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90	(revision 4266)
+++ LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90	(revision 4268)
@@ -46,5 +46,5 @@
   REAL,             ALLOCATABLE :: ucov_glo(:,:),    q_glo(:,:), phis_glo(:)
   REAL,             ALLOCATABLE :: teta_glo(:,:)
-  LOGICAL :: lOldHNO3
+  LOGICAL :: lOldHNO3, ll
 !-------------------------------------------------------------------------------
   modname="dynetat0_loc"
@@ -152,13 +152,13 @@
 !--- Tracers
   ALLOCATE(q_glo(ip1jmp1,llm))
-  lOldHNO3=.FALSE.
+  ll=.FALSE.
 #ifdef REPROBUS
   !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g
-  lOldHNO3 = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
+  ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
 #endif
   DO iq=1,nqtot
     var = tracers(iq)%name
     oldVar = new2oldName(var)
-    lOldHNO3 = lOldHNO3 .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
+    lOldHNO3 = ll .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
     !--------------------------------------------------------------------------------------------------------------------------
     IF(NF90_INQ_VARID(fID, var, vID) == NF90_NoErr .AND. .NOT.lOldHNO3) THEN             !=== REGULAR CASE