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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:56:30 -0800 (Fri, 07 Dec 2007)
New Revision: 8560

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
adding comments.

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-07-18 10:13:24 UTC (rev 8559)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:56:30 UTC (rev 8560)
@@ -1373,6 +1373,10 @@
     close(55)
       endif
 
+! nb_proc_source is the number of processes that own the source (the nearest point). It can be greater 
+! than one if the nearest point is on the interface between several partitions with an explosive source.
+! since source contribution is linear, the source_time_function is cut down by that number (it would have been similar 
+! if we just had elected one of those processes).
     source_time_function(:) = source_time_function(:) / nb_proc_source
 
   else