Changeset 2478 for LMDZ5/trunk/libf/phylmd

Timestamp:

Mar 25, 2016, 3:48:06 PM (9 years ago)

Author:

fhourdin

Message:

Correction d'un bug de non initialisation d'un tableau qui faisait
planter le modèle en haute résolution sur 8 thread. Bug identifié
par Yann Meurdesoif.

File:

• LMDZ5/trunk/libf/phylmd/cv3p_mixing.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/cv3p_mixing.F90

@@ -130 +130 @@
         Qent(i, k, j) = rr(i, j)
         uent(i, k, j) = u(i, j)
-        vent(i, k, j) = v(i, j)
+        vent(i, k, j) = v(i, j) 
         elij(i, k, j) = 0.0
         hent(i, k, j) = 0.0
@@ -143 +143 @@
   Sij(1:ncum, 1:nd, 1:nd) = 0.0
 !AC!
+!ym
+  Sigij(1:ncum, 1:nd, 1:nd) = 0.0
+!ym 
 
 !jyg!  DO k = 1, ntra