Changeset 1745 for LMDZ5/trunk


Ignore:
Timestamp:
Apr 11, 2013, 3:51:13 PM (12 years ago)
Author:
idelkadi
Message:

Correction de bug (introduit depuis la version 1742) !

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F

    r1742 r1745  
    171171
    172172!AC!
    173        do j=1,nd
    174          do k=1,nd
     173       do k2=1,nd
     174         do k1=1,nd
    175175          do i=1,ncum
    176             phi1(idcum(i),k,j)=phi(i,k,j)                 !AC!
     176            phi1(idcum(i),k1,k2)=phi(i,k1,k2)                 !AC!
    177177            phi21(idcum(i),k1,k2)= phi2(idcum(i),k1,k2)   !RomP
    178178            sigij1(idcum(i),k1,k2) = sigij(idcum(i),k1,k2)    !RomP
Note: See TracChangeset for help on using the changeset viewer.