[cig-commits] [commit] devel: fixes parameter output to values_from_mesher.h file for mesh geometry (avoids line breaks) (12a1de4)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Tue Oct 21 02:47:33 PDT 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branch : devel
Link : https://github.com/geodynamics/specfem3d_globe/compare/5958372e7c9df380f251f5c8639acaea74d38194...12a1de401e708e4bdc6d5b933ad242126ed5b297
>---------------------------------------------------------------
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)
More information about the CIG-COMMITS
mailing list