Changeset 15 for trunk/NS3D_JMC/sous_routines.F90

Timestamp:

12/21/06 19:12:59 (17 years ago)

Author:

yculod

Message:

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

File:

• trunk/NS3D_JMC/sous_routines.F90 (modified) (2 diffs)

trunk/NS3D_JMC/sous_routines.F90

@@ -763 +763 @@
             open (unit=88,file='dRho_dz.init',status='old')
             !read(88) flag, nxread, nyread, lxread, lyread
-            do iy=0,nzmax-1
-            read(88,*) dRho_dzi(iy)
+            do iz=0,nzmax-1
+            read(88,*) dRho_dzi(iz)
             enddo
             
@@ -779 +779 @@
                 do iy=0,nymax-1
                     do ix=0,nxmax-1
-                        dRho_dz(ix,iy,iz)=dRho_dzi(iy)
+                        dRho_dz(ix,iy,iz)=dRho_dzi(iz)
                     end do
                 end do