Changeset 14 for trunk/NS3D_JMC/parametres.F90

Timestamp:

12/21/06 10:23:42 (17 years ago)

Author:

xlvlod

Message:

NS3D: modification Yannis

File:

• trunk/NS3D_JMC/parametres.F90 (modified) (3 diffs)

trunk/NS3D_JMC/parametres.F90

@@ -59 +59 @@
      ! lecture de la vitesse initiale 2D en "unformatted" ou appel subroutine
     logical, save :: velo2D_sub, velo2D_read
+     
+    ! lecture du profil de densite initiale 1D en "unformatted"
+    logical, save :: dRho_read
+    double precision, save :: Rhob
 
     ! Bruit blanc et amplitude du bruit blanc
@@ -65 +69 @@
 
     !introduction d'un forcage, appel de la subroutine forcage
-    logical, save :: forcage_sub
+    logical, save :: forcage_sub   
     double precision, save :: A_ics, freq
+    integer, save :: it0  
 
     ! nombre et instants où sont appeles les differentes fonctions de sorties
@@ -92 +97 @@
 
     ! Vitesses, densité, termes non linéaire pour l'équation de la vitesse et de la densité
-    double precision, dimension(0:dimx_tab-1,0:dimy_tab-1,0:dimz_tab-1), save :: vox, voy, voz, rho
+    double precision, dimension(0:dimx_tab-1,0:dimy_tab-1,0:dimz_tab-1), save :: vox, voy, voz, rho, dRho_dz, wdRho
     double precision, dimension(0:dimx_tab-1,0:dimy_tab-1,0:dimz_tab-1), save :: vox2, voy2, voz2, rho2
     double precision, dimension(0:dimx_tab-1,0:dimy_tab-1,0:dimz_tab-1), save :: fx, fy, fz, frho