[cig-commits] r23009 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2014-03-07 10:52:06 -0800 (Fri, 07 Mar 2014)
New Revision: 23009

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASDF.F90
Log:
Update from James: integer kind change to long for adios.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASDF.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASDF.F90	2014-03-07 18:37:54 UTC (rev 23008)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_output_ASDF.F90	2014-03-07 18:52:06 UTC (rev 23009)
@@ -297,8 +297,8 @@
   ! Parameters
   character(len=*),intent(inout) :: asdf_fn
   type(asdf_event),intent(inout) :: asdf_container
-  integer,intent(inout) :: adios_group
-  integer,intent(in) :: rank, nproc, comm, ierr
+  integer(kind=8),intent(inout) :: adios_group
+  integer,intent(inout) :: rank, nproc, comm, ierr
   ! Variables
   integer         :: adios_err
   integer(kind=8) :: adios_groupsize, adios_totalsize