Changeset 4187 for trunk/LMDZ.VENUS

Timestamp:

Apr 14, 2026, 1:53:15 PM (3 weeks ago)

Author:

mcohen

Message:

Minor bugfix to optimised photolysis routine. Removed sj(nlayer+1,:,:) = 0. to avoid silent memory override.

File:

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

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

@@ -185 +185 @@
       dtgas(nlayer+1,:,:) = 0.
       dtgas(:,nw,:) = 0.
-      sj(nlayer+1,:,:) = 0.
       sj(:,nw,:) = 0.