[cig-commits] r11945 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sat May 10 05:45:54 PDT 2008
Author: dkomati1
Date: 2008-05-10 05:45:54 -0700 (Sat, 10 May 2008)
New Revision: 11945
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90
Log:
added initialization of dummy variables to avoid a warning
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90 2008-05-10 11:48:11 UTC (rev 11944)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90 2008-05-10 12:45:54 UTC (rev 11945)
@@ -2175,12 +2175,15 @@
else
to_remove = 1
endif
- ! dummy value
- divider = 1
+! dummy values to avoid a warning
+ nglob_surf = 0
+ nglob_edges_h = 0
+ nglob_edge_v = 0
doubling = 0
nb_lay_sb = 0
nspec2D_xi_sb = 0
nspec2D_eta_sb = 0
+ divider = 1
endif
tmp_sum_xi = tmp_sum_xi + ((NEX_PER_PROC_XI / ratio_sampling_array(iter_layer)) * &
More information about the cig-commits
mailing list