[cig-commits] r12538 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-08-06 03:43:30 -0700 (Wed, 06 Aug 2008)
New Revision: 12538

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
Log:
fixed two warnings from GNU gfortran


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-08-06 10:28:46 UTC (rev 12537)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-08-06 10:43:30 UTC (rev 12538)
@@ -1672,8 +1672,7 @@
             etaxstore,etaystore,etazstore, &
             gammaxstore,gammaystore,gammazstore, &
             xstore,ystore,zstore,rhostore,dvpstore, &
-            kappavstore,kappahstore,muvstore,muhstore,eta_anisostore, &
-            nspec_ani, &
+            kappavstore,kappahstore,muvstore,muhstore,eta_anisostore,nspec_ani, &
             c11store,c12store,c13store,c14store,c15store,c16store,c22store, &
             c23store,c24store,c25store,c26store,c33store,c34store,c35store, &
             c36store,c44store,c45store,c46store,c55store,c56store,c66store, &
@@ -1681,14 +1680,11 @@
             ibelm_xmin,ibelm_xmax,ibelm_ymin,ibelm_ymax,ibelm_bottom,ibelm_top, &
             nspec2D_xmin,nspec2D_xmax,nspec2D_ymin,nspec2D_ymax, &
             normal_xmin,normal_xmax,normal_ymin,normal_ymax,normal_bottom,normal_top, &
-            jacobian2D_xmin,jacobian2D_xmax, &
-            jacobian2D_ymin,jacobian2D_ymax, &
-            jacobian2D_bottom,jacobian2D_top, &
-            nspec,nglob, &
+            jacobian2D_xmin,jacobian2D_xmax,jacobian2D_ymin,jacobian2D_ymax, &
+            jacobian2D_bottom,jacobian2D_top,nspec,nglob, &
             NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX,NSPEC2D_BOTTOM,NSPEC2D_TOP, &
             TRANSVERSE_ISOTROPY,HETEROGEN_3D_MANTLE,ANISOTROPIC_3D_MANTLE,ANISOTROPIC_INNER_CORE,OCEANS, &
-            tau_s,tau_e_store,Qmu_store,T_c_source, &
-            ATTENUATION,ATTENUATION_3D, &
+            tau_s,tau_e_store,Qmu_store,T_c_source,ATTENUATION,ATTENUATION_3D, &
             size(tau_e_store,2),size(tau_e_store,3),size(tau_e_store,4),size(tau_e_store,5),&
             NEX_PER_PROC_XI,NEX_PER_PROC_ETA,NEX_XI,ichunk,NCHUNKS,ABSORBING_CONDITIONS,AM_V)
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90	2008-08-06 10:28:46 UTC (rev 12537)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90	2008-08-06 10:43:30 UTC (rev 12538)
@@ -62,7 +62,7 @@
  integer yr,jda,ho,mi
  double precision sec
  real mb
- character(12) ename
+ character(len=12) ename
 
 ! variables
  integer :: iproc,sender,irec_local,irec,ier,receiver,nrec_local_received,nrec_tot_found
@@ -325,7 +325,7 @@
   integer yr,jda,ho,mi
   double precision sec
   real mb
-  character(12) ename
+  character(len=12) ename
 
   real DELTA
   real DEPMIN
@@ -356,12 +356,12 @@
   integer LOVROK
   integer LCALDA
 
-  character(8) KSTNM
-  character(16) KEVNM
-  character(8) KCMPNM
-  character(8) KNETWK
-  character(8) KUSER0,KUSER1,KUSER2
-  character(8), parameter :: str_undef='-12345  '
+  character(len=8) KSTNM
+  character(len=16) KEVNM
+  character(len=8) KCMPNM
+  character(len=8) KNETWK
+  character(len=8) KUSER0,KUSER1,KUSER2
+  character(len=8), parameter :: str_undef='-12345  '
 
   real UNUSED   ! header fields unused by SAC
   real undef    ! undefined values
@@ -601,7 +601,7 @@
 ! ------------------end format 5I10---------
 !
 !----------------------------------
- KSTNM  = station_name(irec) ! A8
+ KSTNM  = station_name(irec)(1:8) ! A8
 
  if (NSOURCES == 1) then
    KEVNM  = ename(1:len_trim(ename))//'_syn'! A16