Repository : https://github.com/geodynamics/specfem3d_globe
On branch : devel
Link : https://github.com/geodynamics/specfem3d_globe/compare/44dfdda23ac38830fa165e7d7fde8e9052c9cfbc...f9bb4ccd0e567c332ae354e6a9cbf46dbe1de590
>---------------------------------------------------------------
commit 1febe0d53db63d485fc311d128888de015491686
Author: daniel peter <peterda at ethz.ch>
Date: Wed Aug 6 12:20:44 2014 +0200
fixes a new line issue
>---------------------------------------------------------------
1febe0d53db63d485fc311d128888de015491686
src/specfem3D/save_forward_arrays_adios.F90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/specfem3D/save_forward_arrays_adios.F90 b/src/specfem3D/save_forward_arrays_adios.F90
index 3c6976d..ffa1a09 100644
--- a/src/specfem3D/save_forward_arrays_adios.F90
+++ b/src/specfem3D/save_forward_arrays_adios.F90
@@ -78,7 +78,7 @@ subroutine save_intermediate_forward_arrays_adios()
! Open an ADIOS handler to the restart file.
call adios_open (adios_handle, "SPECFEM3D_GLOBE_FORWARD_ARRAYS", &
- outputname, "w", comm, adios_err);
+ outputname, "w", comm, adios_err);
call adios_group_size (adios_handle, group_size_inc, &
adios_totalsize, adios_err)
@@ -150,7 +150,7 @@ subroutine save_forward_arrays_adios()
! Open an ADIOS handler to the restart file.
call adios_open (adios_handle, "SPECFEM3D_GLOBE_FORWARD_ARRAYS", &
- outputname, "w", comm, adios_err);
+ outputname, "w", comm, adios_err);
call adios_group_size (adios_handle, group_size_inc, &
adios_totalsize, adios_err)
@@ -632,7 +632,8 @@ subroutine save_forward_arrays_undoatt_adios()
!endif
! Open an ADIOS handler to the restart file.
- call adios_open (adios_handle, group_name, & outputname, "w", comm, adios_err)
+ call adios_open (adios_handle, group_name, &
+ outputname, "w", comm, adios_err)
call adios_group_size (adios_handle, group_size_inc, &
adios_totalsize, adios_err)