[cig-commits] r8481 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:49:39 -0800 (Fri, 07 Dec 2007)
New Revision: 8481

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.f90
Log:
make sure that PNM images generated for movies have even number of pixels in each direction,
because this makes it easier to then generate MPEG movies based upon the GIMP MPEG encoder


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2006-01-16 16:41:09 UTC (rev 8480)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-12-07 23:49:39 UTC (rev 8481)
@@ -705,6 +705,10 @@
 ! calculer le nombre de pixels en vertical en fonction du rapport des tailles
   NZ_IMAGE_PNM = nint(NX_IMAGE_PNM * (zmax_PNM_image - zmin_PNM_image) / (xmax_PNM_image - xmin_PNM_image))
 
+! convertir la taille de l'image en nombre pair car plus facile pour ensuite faire des movies en MPEG
+  NX_IMAGE_PNM = 2 * (NX_IMAGE_PNM / 2)
+  NZ_IMAGE_PNM = 2 * (NZ_IMAGE_PNM / 2)
+
 ! allouer un tableau pour les donnees de l'image
   allocate(donnees_image_PNM_2D(NX_IMAGE_PNM,NZ_IMAGE_PNM))