Changeset 9 for trunk/NS3D/SRC/NS3D.F90

Timestamp:

12/05/06 10:39:48 (17 years ago)

Author:

xlvlod

Message:

Ajout modifs Yannis

File:

• trunk/NS3D/SRC/NS3D.F90 (modified) (2 diffs)

trunk/NS3D/SRC/NS3D.F90

@@ -345 +345 @@
     ! ******************************
 
+    if (Rho_read) then
+  
+     write(*,*) "  -> lecture du fichier 'Rho.init'"
+     call readRho(Rhov)
+    
+    end if
+
+
     if (reprise_run) then
         write(*,*) "Reprise d'un run"
@@ -466 +474 @@
     ! Globalement ici, on rentre donc avec les valeurs à l'instant 1 et on en sort avec les valeurs à l'instant itmax
     do it=2,itmax
-
+        write(*,*) 'boucle it2, itmax' 
         ! Shéma d'ordre deux d'Adams-Bashforth
         call adams_bashforth(vox,voy,voz,rho,fx,fy,fz,frho,vox2,voy2,voz2,rho2)