Changeset 3569

Timestamp:

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

Author:

flefevre

Message:

Bug fix in photolysis

File:

• trunk/LMDZ.VENUS/libf/phyvenus/photolysis_online.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/photolysis_online.F

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