[cig-commits] [commit] devel, master: Fix warning about BOZ constant outside of DATA. (b17a1fe)

[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 b17a1fe8465ca1e8307c6f39ee901f4704f266ea
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Tue Jul 8 15:41:47 2014 -0400

    Fix warning about BOZ constant outside of DATA.
    
    It's a bit weird that the standard doesn't even allow BOZ constants in
    parameter initializers either.


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

b17a1fe8465ca1e8307c6f39ee901f4704f266ea
 src/shared/model_topo_bathy.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/shared/model_topo_bathy.f90 b/src/shared/model_topo_bathy.f90
index 766a47e..616dbfb 100644
--- a/src/shared/model_topo_bathy.f90
+++ b/src/shared/model_topo_bathy.f90
@@ -84,6 +84,8 @@
   integer(kind=2) :: ival
   integer :: indx,itopo_x,itopo_y
   logical :: byteswap
+  integer(kind=2) :: HEADER_IS_BYTE_SWAPPED
+  data HEADER_IS_BYTE_SWAPPED/z'3412'/
 
   ! reads in topography values from file
   filesize = NX_BATHY * NY_BATHY * 2 + 2
@@ -92,7 +94,7 @@
   ! checks byte ordering
   indx = 1
   call read_abs(10, ival, 2, indx)
-  byteswap = (ival == z'3412')
+  byteswap = (ival == HEADER_IS_BYTE_SWAPPED)
 
   ! reads in topography array
   do itopo_y=1,NY_BATHY