Changeset 2380 for trunk

Timestamp:

Jun 25, 2020, 5:10:48 PM (4 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

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d/leapfrog.F (modified) (1 diff)
• dyn3dpar/leapfrog_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -436 +436 @@
       dq(:,:,:) = 0.D+0
       dp(:) = 0.D+0
+      flxw(:,:) = 0.D+0
 #else
       CALL caldyn 

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