Changeset 831 for LMDZ4/trunk


Ignore:
Timestamp:
Aug 28, 2007, 5:02:46 PM (17 years ago)
Author:
lmdzadmin
Message:

Correction bug indices buoy dans cv3_undilute2
CRio/JYG/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phytherm/cv3_routines.F

    r814 r831  
    10751075        endif
    10761076 506   continue
    1077        buoy(icb(i),k)=buoybase(i)
     1077cIM cf. CRio/JYG 270807   buoy(icb(i),k)=buoybase(i)
     1078       buoy(i,icb(i))=buoybase(i)
    10781079 505  continue
    10791080
    … …  
    12041205        enddo
    12051206      enddo
    1206      
     1207
    12071208      do 600 k=minorig+1,nl
    12081209        do 590 i=1,ncum
Note: See TracChangeset for help on using the changeset viewer.