[cig-commits] r21607 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-21 17:32:36 -0700 (Thu, 21 Mar 2013)
New Revision: 21607

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
moved a misplaced print statement: 'Assigning an external velocity and density model...'


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-22 00:24:12 UTC (rev 21606)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-22 00:32:36 UTC (rev 21607)
@@ -2218,11 +2218,9 @@
   if(output_grid_Gnuplot .and. myrank == 0 .and. ipass == 1)  &
     call plotgll(knods,ibool,coorg,coord,nglob,npgeo,ngnod,nspec)
 
-  if(myrank == 0 .and. ipass == 1)  &
-    write(IOUT,*) 'Assigning an external velocity and density model...'
-
 ! if (assign_external_model .and. ipass == 1) then
   if (assign_external_model) then
+    if(myrank == 0 .and. ipass == 1) write(IOUT,*) 'Assigning an external velocity and density model...'
     call read_external_model(any_acoustic,any_elastic,any_poroelastic, &
                 elastic,poroelastic,anisotropic,nspec,nglob,N_SLS,ibool, &
                 f0_attenuation,inv_tau_sigma_nu1_sent,phi_nu1_sent, &