Index: trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/nirco2abs.F	(revision 2228)
+++ trunk/LMDZ.MARS/libf/phymars/nirco2abs.F	(revision 2240)
@@ -183,4 +183,6 @@
 
          nstep = 20   ! number of integration step /sol
+         mu0_int(1:ngrid) = 0.
+         ztim1 = 0.
          do n=1,nstep
             zday_int = (n-1)/float(nstep)
@@ -190,5 +192,5 @@
      s             ztim1,ztim2,ztim3,
      s             mu0_int,fract_int)
-            do ig=1,ngrid
+            do ig=1,ngrid               
                zmu(ig)=sqrt(1224.*mu0_int(ig)*mu0_int(ig)+1.)/35.