Changeset 2380 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Jun 25, 2020, 5:10:48 PM (5 years ago)

Author:

jvatant

Message:

COMMON : Fix mass flux flxw sent unitialized to physics in NODYN mode.

Was a cause of crash in debug in NODYN.

--JVO

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -714 +714 @@
       dq(:,:,:) = 0.D+0
       dp(:) = 0.D+0
+      flxw(:,:) = 0.D+0
       if (planet_type.eq."generic") then
       if (ok_guide) then