Changeset 3570

Timestamp:

Jan 10, 2025, 4:10:50 PM (5 weeks ago)

Author:

flefevre

Message:

Bug fix in photolysis

File:

• trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F

@@ -271 +271 @@
          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