Changeset 15


Ignore:
Timestamp:
12/21/06 19:12:59 (11 years ago)
Author:
yculod
Message:

Correction assignation dRho_dz dans read_dRho, variation remise suivant l'axe z

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NS3D_JMC/sous_routines.F90

    r14 r15  
    763763            open (unit=88,file='dRho_dz.init',status='old') 
    764764            !read(88) flag, nxread, nyread, lxread, lyread 
    765             do iy=0,nzmax-1 
    766             read(88,*) dRho_dzi(iy) 
     765            do iz=0,nzmax-1 
     766            read(88,*) dRho_dzi(iz) 
    767767            enddo 
    768768             
     
    779779                do iy=0,nymax-1 
    780780                    do ix=0,nxmax-1 
    781                         dRho_dz(ix,iy,iz)=dRho_dzi(iy) 
     781                        dRho_dz(ix,iy,iz)=dRho_dzi(iz) 
    782782                    end do 
    783783                end do 
Note: See TracChangeset for help on using the changeset viewer.