Changeset 1745 for LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F

Timestamp:

Apr 11, 2013, 3:51:13 PM (11 years ago)

Author:

idelkadi

Message:

Correction de bug (introduit depuis la version 1742) !

File:

• LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F

@@ -171 +171 @@
 
 !AC!
-       do j=1,nd
-         do k=1,nd 
+       do k2=1,nd
+         do k1=1,nd 
           do i=1,ncum
-            phi1(idcum(i),k,j)=phi(i,k,j)                 !AC!
+            phi1(idcum(i),k1,k2)=phi(i,k1,k2)                 !AC!
             phi21(idcum(i),k1,k2)= phi2(idcum(i),k1,k2)   !RomP
             sigij1(idcum(i),k1,k2) = sigij(idcum(i),k1,k2)    !RomP