Index: /trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F
===================================================================
--- /trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F	(revision 3569)
+++ /trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F	(revision 3570)
@@ -271,11 +271,11 @@
          end do
 
+      end do ! iw
+
 !     eliminate small values
 
-         where (v_phot(:,1:nphot) < 1.e-30)
-            v_phot(:,1:nphot) = 0.
-         end where
-
-      end do ! iw
+      where (v_phot(:,1:nphot) < 1.e-30)
+         v_phot(:,1:nphot) = 0.
+      end where
 
       contains