the model parameter names should be parameters

- no reason to make them writable
seismology · Mar 18, 2015 · c0cbc00 · c0cbc00
1 parent d07581a
commit c0cbc00
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/background_model.f90 b/background_model.f90
@@ -7,7 +7,7 @@ module backgroundmodel
   integer, parameter           :: nmodel_parameters = 12 !< Number of basic model parameters
                                                          !! which are availabe in backgroundmodel_type
 
-  character(len=3)             :: parameter_name(nmodel_parameters) =  &
+  character(len=3), parameter  :: parameter_name(nmodel_parameters) =  &
                                   ['vp ', 'vs ', 'rho', 'vph', 'vpv', 'vsh', &
                                    'vsv', 'eta', 'phi', 'xi ', 'lam', 'mu ']