[cig-commits] [commit] master: adding planetary radius to netcdf file (120c2bd)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/dd6f81229fe57323788baa40ff8edb224d1e10eb...c9460bda8e22ada0d893b211fc865b17d8fb41fc

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

commit 120c2bd9466ffe52655b816f1da691f831914cb2
Author: martinvandriel <martin at vandriel.de>
Date:   Wed Sep 10 15:02:50 2014 +0200

    adding planetary radius to netcdf file


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

120c2bd9466ffe52655b816f1da691f831914cb2
 SOLVER/parameters.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/SOLVER/parameters.F90 b/SOLVER/parameters.F90
index 4921d10..28ae4b9 100644
--- a/SOLVER/parameters.F90
+++ b/SOLVER/parameters.F90
@@ -1420,6 +1420,7 @@ subroutine write_parameters
         ! write generic simulation info file
         write(6,*) ' Writing simulation info to netcdf file attributes' 
         call nc_write_att_char( trim(bkgrdmodel),      'background model')
+        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')
         call nc_write_att_char( trim(hostname),        'host name')