[cig-commits] [commit] master: adding attenuation switch to netcdf file (b6ee91b)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/3dbeddb239d17b94f5cc81665d84d7934837e868...fbf0c898901266d5b41816c9d03ecf08714202cf

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

commit b6ee91b686114627e4c05614f6a60625273607cb
Author: martinvandriel <martin at vandriel.de>
Date:   Wed Oct 1 23:16:57 2014 +0200

    adding attenuation switch to netcdf file
    
    increasing file version, but should be backward compatible


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

b6ee91b686114627e4c05614f6a60625273607cb
 SOLVER/parameters.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SOLVER/parameters.F90 b/SOLVER/parameters.F90
index 9199a4e..6091847 100644
--- a/SOLVER/parameters.F90
+++ b/SOLVER/parameters.F90
@@ -1439,8 +1439,9 @@ subroutine write_parameters
     if ((mynum.eq.0).and.(use_netcdf)) then !Only proc0 has the netcdf file open at that point
         ! write generic simulation info file
         write(6,*) ' Writing simulation info to netcdf file attributes' 
-        call nc_write_att_int(  3,                     'file version')
+        call nc_write_att_int(  4,                     'file version')
         call nc_write_att_char( trim(bkgrdmodel),      'background model')
+        call nc_write_att_int(  merge(1, 0, do_anel),  'attenuation') ! merge: hacky conversion of logical to int
         call nc_write_att_dble( router / 1000,         'planet radius')
         call nc_write_att_char( trim(svn_version),     'SVN revision')
         call nc_write_att_char( trim(username),        'user name')