[cig-commits] [commit] devel, master: fixes parameter output to values_from_mesher.h file for mesh geometry (avoids line breaks) (12a1de4)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit 12a1de401e708e4bdc6d5b933ad242126ed5b297
Author: daniel peter <peterda at ethz.ch>
Date:   Tue Oct 21 11:18:15 2014 +0200

    fixes parameter output to values_from_mesher.h file for mesh geometry (avoids line breaks)


>---------------------------------------------------------------

12a1de401e708e4bdc6d5b933ad242126ed5b297
 src/shared/save_header_file.F90 | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/shared/save_header_file.F90 b/src/shared/save_header_file.F90
index 08f96ce..6de7a29 100644
--- a/src/shared/save_header_file.F90
+++ b/src/shared/save_header_file.F90
@@ -783,12 +783,13 @@
   write(IOUT,*) 'integer, parameter :: NT_DUMP_ATTENUATION = ',NT_DUMP_ATTENUATION_optimal
   write(IOUT,*)
 
-  ! mesh geometry
-  write(IOUT,*) 'double precision, parameter :: ANGULAR_WIDTH_ETA_IN_DEGREES_VAL = ',ANGULAR_WIDTH_ETA_IN_DEGREES
-  write(IOUT,*) 'double precision, parameter :: ANGULAR_WIDTH_XI_IN_DEGREES_VAL = ',ANGULAR_WIDTH_XI_IN_DEGREES
-  write(IOUT,*) 'double precision, parameter :: CENTER_LATITUDE_IN_DEGREES_VAL = ',CENTER_LATITUDE_IN_DEGREES
-  write(IOUT,*) 'double precision, parameter :: CENTER_LONGITUDE_IN_DEGREES_VAL = ',CENTER_LONGITUDE_IN_DEGREES
-  write(IOUT,*) 'double precision, parameter :: GAMMA_ROTATION_AZIMUTH_VAL = ',GAMMA_ROTATION_AZIMUTH
+  ! mesh geometry (with format specifier to avoid writing double values on a newline)
+  write(IOUT,'(1x,a,f12.6)') 'double precision, parameter :: ANGULAR_WIDTH_ETA_IN_DEGREES_VAL = ',ANGULAR_WIDTH_ETA_IN_DEGREES
+  write(IOUT,'(1x,a,f12.6)') 'double precision, parameter :: ANGULAR_WIDTH_XI_IN_DEGREES_VAL = ',ANGULAR_WIDTH_XI_IN_DEGREES
+  write(IOUT,'(1x,a,f12.6)') 'double precision, parameter :: CENTER_LATITUDE_IN_DEGREES_VAL = ',CENTER_LATITUDE_IN_DEGREES
+  write(IOUT,'(1x,a,f12.6)') 'double precision, parameter :: CENTER_LONGITUDE_IN_DEGREES_VAL = ',CENTER_LONGITUDE_IN_DEGREES
+  write(IOUT,'(1x,a,f12.6)') 'double precision, parameter :: GAMMA_ROTATION_AZIMUTH_VAL = ',GAMMA_ROTATION_AZIMUTH
+  write(IOUT,*)
 
   close(IOUT)